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第 1 章 面向 对 象 编 程 


本 章 介绍 如 何在 MATLAB 中 实现 面向 对 象 编程 。 面 庙 对 象 编程 强调 使 用 类 和 对 象 来 编号 
程序 .使 用 类 和 对 象 , 可 以 向 MAILAB 深 加 新 的 数据 类 型 和 新 的 运算 符 , 类 描述 对 象 的 结 榴 ， 
并 定义 运算 符 的 类 型 和 可 以 操作 对 象 的 函数 ， 对 象 是 某 个 类 的 实例 。 


1.1 对 象 和 类 


可 以 把 基 看 作 是 具有 特定 行为 的 新 的 数据 类 型 。 例 如 ，Polynomial 类 重新 定义 相 加 运算 
符 〈+) 以 后 ， 可 以 对 多 项 式 完成 止 确 的 相 加 和 运算。 运算 符 是 类 的 一 种 方法 ， 也 可 以 把 类 看 
作 是 可 以 作为 单 - 实 体 的 新 项 目 。 例 如 arrow 〈 和 箭头) 对象 ， 它 可 以 显示 在 图 形 上 ， 并 像 名 
柄 图 形 对 象 那 样 具有 属性 。 可 以 通过 简单 地 实例 化 arrow 对 象 来 创建 稍 头 ， 可 以 为 对 象 指定 
用 于 数据 存储 的 MATLAB 结构 ， 并 创建 M 文件 的 类 目录 来 将 类 添加 到 MATLASB 环境 中 。 
这 些 M 文件 基于 对 象 进行 操作 并 提供 类 的 方法 。 类 目录 中 还 可 以 定义 应 用 寺 对 象 的 不 同 
MATLAB 运算 符 ， 包 括 算 木 运算 、 索 引 引 用 等 。 可 以 在 类 中 重新 定义 内 部 运算 符 ， 即 进行 
运算 符 重 载 。 


1.1.1 面向 对 象 编程 的 特点 


使 用 设计 恨 好 的 类 时 ， 面 辣 对 象 编程 可 以 显著 提高 代码 的 重用 性 ， 并 使 程序 更 易于 维护 
和 扩展 。 用 类 和 对 象 编 程 与 一 般 的 结构 化 编程 有 下 面 一 些 主 要 区 别 。 

《1)》 能 实现 困 数 和 运算 符 重 载 。 

《2)》 可 以 覆盖 已 经 存在 的 MATLAB 函数 表示 的 方法 。 

《3) 把 用 户 定 六 的 对 象 作为 参数 调用 函数 时 ，MATLASB 首先 进行 检查 ， 看 是 否 有 定义 对 
象 类 的 方法 。 如 果 有 ，MATLAB 调用 它 。 

《4》 可 以 实现 数据 的 封装 ， 

《5 对 象 属性 在 命令 行 中 不 可 见 ， 只 能 用 类 方法 访问 它们 。 

6》 可 以 创建 类 的 继承 层次 。 闻 类 可 以 从 一 个 父 类 ( 单 继 承 ) 和 多 个 父 类 【多 继承 ) 那 
里 进行 继承 。 利 用 继承 ， 可 以 共享 父 函 数 。 

《7) 可 以 用 组 合 创 建 类 ， 其 中 一 个 对 象 包含 另 -个 对 象 。 这 适用 于 一 种 对 象 是 另 一 种 对 
象 的 一 部 分 的 情况 。 


1.1.2 MATLAE 的 数据 类 明 次 


在 面 癌 对 象 搞 程 中 , 所 有 MATLAB 数据 类 都 作为 类 设计 成 函数 。 图 L1 显示 了 MATLAB 
中 定义 的 15 种 基本 数据 类 型 (或 类 )。 可 以 通过 扩展 类 层次 来 给 MATLAB 添加 一 个 以 结构 类 
继承 的 用 户 类 。 创 建 的 所 有 类 都 基于 结构 。 
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定制 类 java 闫 


Jntg,uint 下 用 名 Le double 
JnHguint15 
Int32.uint32 


必 I-1 MAILAB 的 数据 类 层次 


11.3 创建 对 象 


通过 调用 类 的 构造 函数 并 传递 合适 的 输入 参数 ， 可 以 创建 对 象 。 在 MATLAB 中 , 构造 函 
数 的 名 称 与 类 名 相同 ， 例 如， 下 面 的 语句 
Pp=polynorm([10 -> 一 9]); 
创建 一 个 polynom 类 的 对 银 p。 创 建 一 个 polynom 对 象 以 后 ， 就 可 以 用 polynom 类 中 定 
义 的 方法 来 操 作对 象 。 


1.1.4 调用 对 象 的 方法 


类 方法 为 M 函数 ， 该 函数 将 一 个 对 象 作为 输入 参数 之 一 。 特 定 类 的 方法 必须 位 于 该 类 的 
类 目录 中 【@classname 日 录 )。 这 是 MATLAB 查找 类 方法 的 第 1 个 位 置 。 
调用 对 象 方法 的 语法 与 国 数 调 用 类 似 。 通 常 类 似 于 下 面 的 格式 ; 
[outl.out2,….]=methodNamelobjectarg]l,arg2,..,) 
例如 ， 自 定义 类 polynom 具有 char 方法 ， 该 方法 将 polynom 对 象 转换 为 字符 串 并 返回 该 
字符 串 。 下 面 的 语句 调用 polynom 对 象 p 的 char 方法 。 
S$=chiar(p) 
使 用 class 函数 ， 可 以 确定 返回 值 s 是 否 字符 串 。 使 用 methods 命令 ， 可 以 生成 为 类 定义 
的 所 有 方法 的 列表 。 





1.2 在 MATLAB 中 创建 自己 的 类 


1.2.I MATLAB 类 的 方法 集合 


设计 MATLAB 类 时 ， 应 该 提供 一 个 使 类 能 够 在 MATLAB 环境 中 稳定 运行 的 标准 的 方法 
集合 。 利用 这 些 方法 ， 应 该 可 以 实现 创建 类 、 设 置 属 性 以 及 对 对 象 的 引用 、 赋 值 、 索 引 和 转 
换 等 操作 。 表 1-1 列 出 了 MATLAB 类 中 包括 的 基本 方法 ， 


表 1-1 MATLAB 类 中 的 基本 方法 






















奖 的 构造 畏 效 创建 一 个 类 对 区 
display MATLAB 是 否 显示 对 象 的 内 容 
设 党 和 获取 类 属性 


方法 描 还 
Subsnef 各 srhsasgm 上 户 对 象 的 素 引 引 朋 和 呈 值 











end 此 使 用 了 对 象 的 索引 表达 式 中 支持 end 语法 ， 如 Af]:cnd) 
subsindex 支持 在 索引 表达 式 中 使 用 对 象 


转换 吕方 法 【如 douhleehar 将 对 象 转换 为 -种 MATLAB 数据 类 型 














1.2.2 类 目录 


1， 窑 装 类 目录 

定义 类 方法 的 M 文件 集中 在 一 个 目录 中 ， 该 旦 录 名 由 类 名 前 如 字符 “@@” 组 成 。 例 记 ; 
本 章 中 用 到 的 一 个 示例 是 与 单 变 量 多 项 式 有 关 的 - :个 类 。 类 名 和 构 吐 函数 的 名 称 都 是 
polynom， 定 尺 pelynom 类 的 M 文件 位 于 @poilynom 目录 下 。 类 目录 是 MATLAB 搜索 路 径 上 
目录 的 了 目录。 例如， 新 的 @polynom 目录 可 以 是 MAILAB 工作 目录 的 子 目 录 上 或 已 经 添加 到 
搜索 路 径 中 的 个 人 目录 。 


2， 添 加 类 目录 到 MATLAB 路 径 
划 建 次 目 录 以 后 ， 需 要 更 新 MATLAB 路 季 ， 这 样 ，MATILAB 才能 找到 类 的 源 文 件 。 类 
目录 不 应该 直接 把 父 日 录 添 加 到 MATILAB 路径。 例如， 如 果 @polynom 类 目录 的 位 置 是 
cntmy_classesv@bolynom， 用 addpath 命令 把 类 目录 添加 到 MATLAB 路 衬 中 ; 
addpath cmy_classes; 


1.2.3 ”构造 函数 

构造 函数 是 对 类 进行 操作 时 第 一 个 运行 的 函数 ， 它 常常 用 于 对 象 数据 的 初始 化 。 可 以 通 
过 调用 构 壮 天 数 并 给 它 传 递 合适 的 输入 参数 来 创建 类 .。 在 MAILAB 中 ,构造 冰 数 与 类 具有 相 
同 的 名 称 。 例 如: 声明 P=polynomt10-2 -5)， 创建 -个 属于 polynom 关 的 名 为 P 的 对 象 。 一 
瑟 创 建 了 polynom 对 象 ， 就 可 以 用 类 定义 的 方法 操作 对 象 . 

特定 类 的 @ 目 录 必 须 包 售 ` 个 作为 类 的 构造 函数 的 M 文件 ,除了 名 前缀 和 ,m 扩 展 名 以 外 ， 
构造 函数 的 名 称 与 定义 类 名 目录 的 名 称 相同 。 构 造 函 数 通 过 初始 化 数据 结构 和 实例 化 类 对 象 
来 创建 对 象 。 

构造 函数 必须 运行 一 定 的 函数 。 这样， 对 象 才 能 在 MATLAEH 环境 中 十 确 运行 。 通 常 ， 根 
据 输 入 参数 的 个 效 和 类型 的 不 同 ， 构 造 函 数 有 3 种 ， 分 别 对 应 于 没有 输入 参数 、 同 - -个 类 的 
一 个 对 象 作 为 输入 参数 和 某 种 类 型 的 数据 作为 输入 参数 的 情况 。 


1， 没 有 输入 参数 

如 果 没 有 输入 参数 ， 构 造 睁 数 将 创建 一 个 默认 对 象 。 因 为 没有 输入 参数 ， 没 有 数据 可 用 
于 创建 对 象 ， 所 以 用 空 值 或 默认 值 简单 地 初始 化 对 象 的 数据 ， 调 用 类 示 数 实例 化 对 象 ， 并 返 
回 对 象 作为 输出 参数 。 在 卞 面 两 种 情况 下 需要 使 用 本 语法 ; 

。 在 工作 空间 中 载 入 对 象 叫 ，load 函数 调用 没有 参数 的 构造 画 数 ， 

e 创建 对 每 数组 时 ，MATLAB 向 数组 中 演 加 对 象 。 





























2， 对 象 痊 入 参数 
如 果 参 数列 表 中 的 第 -个 输入 参数 是 同一 类 的 对 象 ， 构 造 函 数 将 简单 地 返回 对 和 银 ， 使 用 
isa 声 数 确定 参数 是 否 为 该 类 对 象 。 


3.， 数据 输入 参数 
如 果 有 输入 参数 , 但 设 有 同一 类 的 对 银 , 则 构造 函数 使 用 输入 的 数据 , 常用 于 使 用 varargin 
输入 参数 有 开关 控制 的 程序 中 。 


1.2.4 设置 和 访问 对 象 数据 


需要 为 类 编写 方法 来 提供 访问 对 象 数据 的 途 从 。set 和 get 方法 提供 了 访问 对 象 数据 的 便 
捷 途 径 。 


1.2.5 类 方法 


1， 在 MATLAS 中 设置 类 方法 
类 方法 实际 上 是 M 文件 务 数 ， 只 是 该 数 的 输入 参数 是 对 象 。 类 方法 必须 位 于 该 类 的 类 
目录 【@@class_name 目录 ) 中 .这 是 MAILAB 查找 类 方法 的 第 一 个 位 置 。 调 用 类 方法 的 语法 
与 调用 函数 的 方法 相同 ， 一 般 地 ， 它 与 下 面 的 语句 行 类 似 ; 
Di] ,oUt2,…=mmethod_name(objectargt,arg2,…) 
例如 ， 名 为 polyaom 的 类 有 一 个 char 方法 。 该 方法 把 polynaorm 对 象 转换 为 字符 串 ， 并 返 
阿 该 字符 串 。 下 面 调用 polynom 对 象 p 的 char 方法 ; 
S=ehanmp)3 
使 用 gjass 冰 数 ， 可 以 确认 返回 值 s 是 -个 字符 串 。 


ClasS{fS)》 
as = 





XA3 了 一 2 学 X 一 和 

可 以 使 用 methods 方法 来 生成 类 中 的 所 有 方法 的 列表 。 

2 私有 方法 

私有 方法 只 能 被 类 中 的 其 他 方法 调用 。 将 有 关 的 M 文 作 放 到 -个 @elass_name 目录 的 
Private 子 月 录 中 ， 可 以 定义 私有 方法 。 便 如 @class_nameWiivatewupdate_objm。update_obj 方 
法 的 使 用 范围 局 限于 class_mame 类 ,这 意味 着 update_obj 可 被 @class_nhame 月 录 中 定义 的 方法 
调用 ， 但 它 不 能 被 MATLAB 命令 行 或 目录 路 径 以 外 的 方法 ， 包 括 父 方法 所 调用 。 私 有 方法 和 
私有 角 数 之 间 的 区 别 在 于 ， 私 有 方法 有 一 个 输入 参数 是 对 银 ， 而 私有 函数 却 没有 。 

3， 调 试 类 方法 

可 以 采用 与 调试 其 他 M 文件 相同 的 方法 ， 用 MATLAB 的 调试 命令 调试 对 象 的 方法 。 惟 
一 的 区 别 在 于 需要 在 方法 名 前 添加 类 的 目录 ， 就 像 下 面 例子 中 用 dbstop 显示 的 那样 。 

dbstop @@polynomychar 
调试 类 方法 时 ， 已 经 获得 了 为 类 定义 的 所 有 方法 ， 包 括 继承 方法 、 私 有 方法 和 私有 函数 ， 








12.6 引用 和 赋值 


1， 索 引 引 用 

用 户 类 在 MATLAB 中 实现 新 的 数据 类 型 ， 通 过 索引 引用 ， 可 以 像 访 问 MATLAB 内 部 数 
据 类 型 一 样 访问 对 象 数 据 。 例 如 ，A 是 doule 类 型 的 数组 ， 则 AG) 返 回 A 的 第 个 元 素 。 

设计 类 时 ， 可 以 确定 索引 引 甩 对 于 对 象 的 意义 。 例 如 ， 定 义 一 个 创建 多 项 式 对 象 的 类 ， 
各 对 和 象 包含 多 项 式 的 系数 。 

多 项 式 对 象 的 一 个 索引 引用 P3) 能 返回 z 的 系数 的 值 、x*=3 时 多 项 式 的 值 或 某 些 不 同 的 
值 ， 通 过 创建 两 个 类 方法 ， 即 subsref 和 subsasgn 来 定义 特定 的 索引 行为 。 无 论 什 么 时 候 引 用 
索引 或 指定 类 对 象 ，MATLAB 都 会 调用 这 些 方法 。 如 果 没 有 为 类 定义 这 些 方法 ， 则 该 类 对 象 
的 索引 就 没有 定义 。 

通常 ， 索 引 对 象 的 规则 与 索引 结构 数组 的 规则 相同 。 


2. 下 标 引 用 
用 对 象 在 赋值 语句 的 右 端 使 用 索引 或 指定 字段 称 为 下 标 引用 。 在 此 情况 下 ，MATLAB 调 
用 subsref 方法 ， 对 象 下 标 引用 可 以 有 3 种 形式 : 数组 索引 、 单 元 数组 索引 和 结构 字段 名 ， 即 
生 休 
AI 
由.field 
使 用 这 3 种 方法 中 的 任何 一 种 时 , MATLAB 都 会 调用 类 目录 下 的 subsref 方法 . MATLAB 
给 subsref 方法 传递 两 个 参数 : A 和 S$， 即 
B=subsreffA,S) 
第 一 个 参数 A 是 引用 的 对 象 ， 第 二 个 参数 $ 是 有 两 个 字段 的 结构 数组 ，S.type 是 包含 指 
定 索引 类 型 的 “()”%“{ } ”或 “.” 的 字符 串 。 其 中 ， 小 括号 袁 示 数值 数组 ， 大 括号 表示 单元 
数组 ， 点 表示 结构 数组 。S.subs 是 包含 实际 下 标的 单元 数组 成 字符 串 。 用 于 索引 的 冒号 (用 字 
符 串 “: ”传递 。 例 如 ， 表 达 式 A(1:2,:) 会 使 MATLAB 调用 subsref(A,S)， 其 中 ，S 是 一 个 1xl 
的 结构 ， 且 
S.type= 
$,sdubs={1:2，: 
类 似 地 ， 对 于 A{12}， 有 
Stype= 人 
S.SDbs={1:21} 
对 于 Afield， 调 用 subsreffA,S)， 有 
Stype=' 
S.sSnbs= 站 eld 
这 些 简单 的 调用 可 以 组 合成 更 复杂 的 索引 表达 式 。 此 时 ，length(S) 是 索引 水 平 数 。 例 如 ， 
由 (1.2). namer3,4) 
调用 subsref(A,S)， 其 中 ，S 是 -- 个 3x1l 的 结构 数组 ， 其 值 为 : 


Sitype=' 人 S(D.sabs='1.2}' 
Sf2).type= SC2).Subs='mame' 
StyhE= 83(3).sSnbs='{3:4? 











subsref 方法 必须 解释 MATLAB 中 传递 的 索引 表达 式 。 一 个 典型 用 途 是 使 用 开关 语句 确定 
用 到 的 索引 类 型 ， 并 获取 实际 的 编号 。 下 面 3 段 代 码 省 示 如 何 解 释 输 入 参数 ， 每 种 情况 下 ， 
函数 必须 返回 值 如。 
对 于 数组 索引 : 
SWiteh S.type 
Case 人 
也 = 名 (3.SUbsf 
End 
对 于 单元 索引 ， 
Switch 3-type 
CasSe [上 
了 = AS.stbsf 站 ;5 页 是 一 个 单元 数组 
end 
对 于 结构 索引 : 
Switch SHIyPe 
CS 
Switch SSsubs 
Case fieldl 
吾 = 站 .下 e]d1; 
Case field2 
吾 = 和 field2; 
en 二 
end 


3. 索引 赋值 
用 对 象 在 赋值 语 名 的 左 端 使 用 索引 或 字段 指示 符 称 为 索引 赋值 。 此 时 ，MATLAB 调用 一 
个 各 为 subsasgn 的 方法 。 对 和 象 索引 赋值 可 以 有 3 种 形式 : 数组 索引 、 单 元 数组 索引 和 结构 字 
段 和 名。 以 A=supsasgn(A,S,B) 的 形式 调用 subsasgn 函数 ， 得 到 下 面 的 结果 : 
Am =B 
AT =B 
生 古 eld = 也 
第 一 个 参数 A 是 引用 的 对 象 ; 第 二 个 参数 $ 与 subsref 函数 具有 相同 的 字段 ; 第 三 个 参数 
丑 是 一 个 新 值 。 


1.2.7 对 象 寮 引 


1， 方 法 中 的 对 象 索引 

如 有 果 关 方法 中 进行 了 索引 引用 , MATLAB 使 用 它 的 内 部 subsref 函数 访问 方法 所 属 类 的 数 
据 。 如 有 果 方 法 从 另 一 个 类 访问 数据 ， 则 MATITLAB 调用 该 类 重 栽 的 subsref 函数 。 对 于 索引 赋 
值 和 subsasgn， 存 在 同样 的 情况 。 

下 例 显 示 类 employee 中 定义 的 方法 testref。 本 方法 用 subsref 函数 引用 对 每 内 的 address 
字段 。 它 还 在 另 一 个 类 中 地 用 相同 的 字段 ， 这 时 使 用 该 类 重 载 的 subsref 函数 。 


fonction testreffInyclass,otherciass) 
Imyclass.address 嗓 使 用 内 部 subsref 函数 
otherclass.address 史 使 用 重 载 的 subsref 冰 数 











本 例 创 建 一 个 employee 对 象 和 - -个 company 对 象 。 
empl = employeef Johnsom Chicagoy 
cotmp = companyfThe MathWerks' Natickn; 


调用 employee 尖 的 方法 testref，MATLAB 只 在 访问 方法 所 属 类 以 外 的 数据 时 才 使 用 重 载 
的 subsref 了 本数 。 


testrefemplcomD) 


ans = 中 调用 了 内 置 的 subsref 函数 
Chicago 
a05 一 妈 调用 了 人 @companysubsref 
Executing 四 eolimnpanysubsref… 
Natick 
2. end 索引 


在 对 象 索 引 表 达 式 中 使 用 end 方法 时 ，MAILAB 调用 对 银 的 end 类 方法 ， 如 果 和 希望 在 与 
你 的 类 对 象 有 关 的 索引 表达 式 中 能 使 用 end 方法 ， 必 须 给 你 的 类 定义 一 个 end 方法 。end 方法 
的 调用 格式 为 : 
endfa 长 0)} 
其 中 ，a 为 用 户 对 象 ，Fk 为 表达 式 中 end 语法 用 到 的 索引 ，n 是 表达 式 中 索引 的 总 个 数 ， 
例如 ， 考 虑 表达 式 Afend-1)，MATLAB 可 以 这 样 使 用 end 方法 ， 
end(A,1.2] 
即 ， 共 有 两 个 索引 元 素 ，end 语句 发 生 在 第 -… 个 索引 元 素 。 然 后 end 方法 返回 第 一 维 最 后 
一 个 元 素 的 索引 值 。 实 现 类 的 end 方法 时 ， 必 须 保 证 它 返 回 . -个 对 对 象 合适 的 值 ， 


3， 有 诈 对 象 索引 对 象 
MATLAB 把 对 象 作 为 索 引 时 ， 调 用 subsindex 方法 。 例 如 ， 假 设 有 一 个 对 象 a， 而 且 希 望 
使 用 该 对 象 对 另 一 个 对 象 b 进行 索引 ， 即 ; 
C=hp(a)， 
subsindex 方法 会 尽 可 能 简单 地 将 该 对 象 转换 为 可 以 用 作 索引 的 double 格式 ,如 下 例 所 示 ， 
nectioa 十 = subsindexfa) 


由 = doublefa); 
注意 ，subsindex 的 值 基于 0， 而 不 是 基于 1， 


1.2.8 识别 对 象 


1，isa 函数 
用 在 梅 造 函 数 中 的 函数 class 和 isa 也 能 几 在 类 目录 以 外 ， 下 面 表达 式 
18a(8 elass_name'); 
检查 a 是 否 指定 类 的 对 象 。 例 如 ，p 是 一 个 polynom 对 象 ， 下 面 的 每 个 表达 式 都 返回 True; 
iatpivdoubley 
isaf hello',char'): 
lsap, polynorm'?; 
在 类 目录 以 外 ，class 函数 只 有 一 个 参数 〈 只 有 在 构造 函数 内 部 ，class 函数 才能 有 -一 个 以 
二 的 参数 )， 表 达 式 class(g) 返 回 一 个 包含 a 的 类 名 的 字符 串 。 例 如 ， 




















下 











Class[pi)， 

classf hello7)， 

class(D) 
返回 

"Geomble'， 

Chan， 

Polynotm 


2，whcs 函数 
用 whos 函数 察看 MATLAB 工作 空间 中 的 对 象 。 


Whos 


Name Sixe 开 ytes 人 ]ass 
P 1X1 156 Polynerm obiect 
3，display 方法 


对 象 为 不 以 分 号 结 属 的 表达 式 的 结果 时 ，MATLAB 调用 一 个 名 为 splay 的 方法 。 例 如 ， 
创建 一 个 double 型 参数 a， 调 用 MATLAB 的 方法 汶 : 
笃 一 9 


中 关 


3 
应 该 在 类 中 定义 一 个 fsplay 方法 ， 这 样 ， 丛 类 中 引用 对 象 时 ，MATLAB 能 在 命令 行 中 显 
示 值 。 在 许多 类 中 ， 方 法 能 简单 地 输出 参数 名 ， 然 后 使 用 转换 路 方法 输出 内 容 或 参数 的 值 。 
因为 MATLAB 把 输出 显示 成 字符 串 ， 所 以 必须 定 祥 char 方法 ， 将 对 象 的 数据 转换 为 宁 符 串 。 


1.2.9 ”转换 器 方法 


转换 器 方法 是 一 个 类 方法 ， 它 与 另 一 个 类 具有 相同 的 名 称 ， 如 char 或 double 等 。 转 换 器 
方法 把 某 美 的 一 个 对 象 作 为 输入 ， 返 回 其 他 类 的 对 象 ， 调 用 格式 为 ; 
b=class_naimea 


其 中 ，8a 是 一 个 不 同 于 class_name 的 类 对 象 。 


1.3 重 载 


在 许多 情况 下 ， 当 参数 是 对 象 时 ， 可 能 希 户 改 变 MATLAB 运算 符 和 函数 的 行为 。 通 过 重 
城 有 关 的 函数 可 以 达到 此 月 的 。 重 载 使 一 个 通 数 可 以 有 不 同 的 形式 、 不 同 数目 的 输入 参数 ， 
并 能 适应 对 象 的 不 同情 况 进行 操作 。 


1.3,1 送 算 符 重 载 


每 个 MATLAB 内 部 运算 符 都 有 一 个 相关 的 函数 名 , 如 “+" 运 咎 符 的 相关 函数 名 为 ptus.m。 
可 以 在 类 目录 中 通过 创建 具有 对 应 名 称 的 M 文件 来 重 载 任何 运算 符 。 例 如 ， 如 果 p 或 q 是 
class_name 尖 型 的 对 象 ， 表 达 式 ptHd 生成 一 个 对 函数 @class_name/plus.m 的 调用 。 如 果 p 和 1 
是 不 同类 的 对 象 ， 则 MATLAB 采用 优先 原则 确定 先 用 哪个 方法 《关于 优先 原则 ， 请 参见 1.7 
节 的 内 容 )， 





= 和。 





1.3.2 ”函数 重 载 


可 以 通过 创建 与 类 目录 中 名 称 相同 的 函数 来 重 载 侍 何 函 数 ， 函 数 调 用 对 象 时 ， 总 是 首先 
在 搜索 路 径 中 的 类 目录 中 进行 查找 ， 然 后 才 是 在 其 他 位 置 中 查找 。 例 如 ， 要 重 载 plot 函数 ， 
只 需要 简单 地 把 你 自己 的 plotm 放 到 兴 目 录 中 就 行 了 。 


1.3.3 示例 一 一 polynom 类 


下 面 通 过 定 尽 一 个 名 为 polyaom 的 新 娄 ， 实 现 描述 多 项 式 的 MATLAB 数据 类 型 。 该 类 为 
保存 数据 指定 一 个 结构 ， 并 定 尽 操作 polynom 对 象 的 方法 目录 (@polynom)。 


1，polynom 类 的 数据 结构 

pelynom 类 用 行 矢 量 表示 多 项 式 ， 行 矢量 中 包含 降序 排列 的 参数 客 次 项 的 系数 。 这 样 ， 
polynom 对 象 p 是 一 个 具有 单一 字段 pc 的 钳 构 ， 其 中 包含 各 系数 。 只 有 @polynom 目录 中 的 
方法 才 可 以 访问 本 字段 。 


2，Ppolynom 类 的 方法 

为 了 创建 一 个 在 MATLAB 环境 中 运行 良好 的 类 ， 并 为 多 项 式 数 据 类 型 提供 有 用 的 功能 ， 
Polynom 类 实现 下 面 的 方法 : 

s 构造 函数 Polynonmum 
epolynom 类 型 疝 double 类 型 转换 的 函数 
epolynom 类 型 癌 char 类 型 转换 的 函数 
申 _display 方法 
二 

















subsref 方法 
重 载 的 +, - 和 * 运算 符 
es 重 载 的 roets, polyval plot 和 出任 函数 
{1) polynom 类 的 构造 水 狗 
下 面 是 polynom 类 的 村 造 函 数 @polynomypolynom.m。 
各 netion p = polynomfa) 
证 nargin = 一 但 
pe= [ji 
中 = clasS(p, Polynarm ); 
elseif isafa poFynorm') 
卫 = 革 
ese 
P.e = aa 人.; 
P= classfP.Polynom 
ent 
polynom 类 有 3 个 构造 函数 ， 它 们 具有 不 同 的 形式 。 
。 没有 答 入 参数 : 如 果 调 用 没有 参数 的 构造 函数 , 它 返 回 一 个 带 空 学 段 的 polynom 对 象 。 
。 输入 参数 为 对 象 : 如 果 调 用 输入 参数 为 对 象 的 构造 函数 ，MATLAB 返回 该 对 象 。 
。 输入 参数 为 系数 矢量 :如 果 输 入 参数 是 一 个 变量 ， 该 变量 不 是 polynom 对 象 ， 则 将 它 
重 塑 为 行 矢量 ， 并 将 它 赋 为 对 象 结构 的 ce 字段 ，class 函数 创建 polynom 对 象 ， 并 在 后 面 由 构 
造 函 数 返 回 。 下 面 是 一 个 使 用 pelynom 类 构造 函数 的 例子 : 








P=polynenmtl0 -2 -93) 

这 将 创建 一 个 指定 系 邹 的 多 项 式 ， 

(2) 转移 器 方法 

转换 器 方法 将 一 个 类 的 对 象 转换 为 另 -一 个 类 的 对 象 .包含 在 MAILAB 类 中 的 最 重要 的 转 
换 器 方法 中 的 两 个 ， 即 double 和 char。 转 换 为 double 型 将 生成 MATLAB 传统 年 阵 ， 尽 管 它 
对 革 些 类 可 能 不 合适 。 转 换 为 char 型 对 于 生成 打印 输出 很 有 用 。 

es polynom 类 型 到 double 类 型 的 转换 ，Pofynom 类 型 到 double 类 型 的 转换 方法 是 一个 简 
单 的 M 文件 : @@polynom doublem。 它 只 提 刀 对象 的 系数 拓 量 prpolfyhoml10 -2 -3 引 ， 


fnction c = goublefp) 
忆 三 站.c: 


语句 doubleCp) 返 回 


as 一 
1 0 -2 -5 


e polynom 类 型 色 char 类 型 的 转换 : polyuom 类 型 到 char 类 型 的 转换 方法 是 一 个 关键 的 
方法 ， 因 为 它 生 成 与 独立 变量 x 的 赛 次 有 关 的 字符 串 。 所 以 ， - 且 已 经 指定 了 xz， 返回 的 字符 
串 就 是 一 个 语法 上 正确 的 MATLAB 表达 式 。 这 里 为 @polynomy/charm。 


functiton s = charfp) 
让 alltpc 一 中 
S= 0; 
人]S 它 
科 = Iehgthtp.c) - 1; 
3= 收 
foT a = P-ci 
证 3 -= 各 
让 -isSermmpty(s) 
认 和 > 站 
sS= 人 全 十 了: 
lse 
s= 晤 -]: 
有 一 -3 
end 
enQ 
这 La ~= T[Q== 
s 二 [snumz2strfajj; 
让 蝇 > 疙 
5= [sr 
end 
end 
下 个 > 一 了 
8=[S Rnmtastrfd)j; 
elSe 寺 出 = 一 1 
8 二 [SC]; 
end 
entdi 
d= 生 -| 
end 
end 





] 虽 。 





如 果 创 建 polynom 对 象 ptp=polynom(10 -2 -5))， 然 后 对 jp 调用 char 方法 : 
char(Pp) 
则 MATLAB 生成 如 下 结果 : 
3 一 3 本 革 一 本 
char 返回 的 值 是 一 个 字符 串 ， 一 且 为 定 义 了 标量 值 ， 可 以 将 它 传 递 给 eval 函数 。 例 如 ; 
天 二 3; 
evaltcharpJ]) 
6 
(3) polynom 类 的 出 splay 方法 
其 M 文件 为 多 polynorm/displaymm。 本 方法 依赖 于 char 方法 ， 生 成 一 个 表示 多 项 式 的 字符 
串 , 然后 显示 在 屏幕 上 ,。 本 法 生成 的 输出 与 MATLAB 的 标准 输出 相同 。 即 参数 名 后 面 跟 等 号 ， 
然后 空 一 行 ， 再 在 一 个 新 行 中 显示 值 。 
fnnction display 人 pb) 
dispf 小 
disp([nputname(]), = 小 
9isP( 小 
disptf “char(p)) 
dispt 少 
语句 ppolynom(10 -2 -3) 创建 一 个 polynom 对 象 , 因为 语句 不 以 分 号 结束 , 结果 输出 为 : 
了 一 
XA3 - 了 29 和 - 








(4 ) polynom 的 subsref 方法 
对 于 pelynom 对 象 P 
BP= bolymorm([10 -2 -5]): 
下 面 的 下 标 表达 式 返 回 闻 3 和 z=4 处 多 项 式 的 值 : P([3 4]) 


ans = 
16 5S1 


subsref 方法 利用 polynom 类 中 定义 的 ehar 方法 ， 生 成 一 个 可 以 计算 的 表达 式 。 
function b = subsreffas) 

SWitch s.type 

Case 人 
记 dL = S.SUbsf: ]; 
fork = 1:Iengthftind) 

b(k) = eval(strrep(chartay, xnum2sbfind(k)); 

end 

Otherwise 

error(Specify value forxas px 


end 


用 char 方法 生成 多 项 式 表 达 式 以 后 ， 使 用 strrep 函数 交换 字符 x， 以 传递 值 的 内 容 。 然 后 
eval 函数 评价 表达 式 并 在 输出 参数 中 返回 值 ， 


# 1， 











(5) 重 载 算 术 运 算 符 
有 些 算术 运算 符 对 于 多 项 式 是 有 意义 的 ， 应 该 在 polynom 类 中 实现 。 重 载 算 木 运 算 符 时 ， 
记 住 进行 操作 的 数据 类 型 。 本 例 中 ， 为 polynom 类 定义 了 pius, minus 和 mtimes 方 社 ， 以 恒 实 
现 加 、 握 法 和 乘法 等 运算 。 
. e 重 基 “+” 运 算 符 ， 如 果 P 或 q 为 polynaom 类 对 象 ， 表 达 式 pfq 调用 @polynomAmplusm 
冰 数 ， 下 面 的 函数 重新 为 Polynaom 类 定义 “+” 运 算 符 。 
fnetiotr= Pinstp.q) 
P= polynom(p); 
qd= Polynom(q); 
k = length(q,cy - length(p.c): 
T= Polynorat[zeros( KE) pc] + fzerosf1，-k qdeG]7 
该 精 数 首先 将 两 个 输入 参数 定义 为 才 项 式 。 这 样 保证 至 少 有 一 个 输入 不 是 多 项 式 的 情况 
下 函数 也 能 正常 运行 。 然 后 阔 数 获取 两 个 系数 矢量 ， 并 用 在 必要 时 将 其 中 的 某 个 转 0， 以 使 它 
们 具有 相同 的 长 度 。 实 际 求 和 是 求 两 个 老 项 式 的 系数 的 和 ， 用 矢量 表示 。 最 后 ， 函 数 第 三 次 
调用 bolynom 构造 函数 ， 得 到 结果 。 
s 重 载 “ - "运算 符 ; 可 以 用 相同 的 方法 实现 * - "运算 符 .MATLAB 调用 @@polynormminus.m 
计算 p-q。 
functionT = Iminus(p,q) 
了 = polynomfp); 
9=pPolyncnmtgy 
下 = ]eng 由 (q.C) - 过 0thfp.cy 
I= polynomt[zeros(1,) P.c] - [zeros({,-) q.c]); 
。 重 载 “*” 运 算 符 ，MATLAB 调用 方法 @polynomAmtimes.m 计算 prq。 因 为 它 从 
MAILAB 答 阵 乘 法 中 继承 而 来 ， 所 以 函数 名 的 第 一 个 字母 为 严 。 
fupetion 了 = 加 tynestp,q) 
P=Polynornkp 
qd = Polynomtqg 
IT = polynomieonv(P.e:9.e)7 
s 使 用 重 载 的 运算 符 ， 给 定 polynom 对 象 pe=polynom([1 0 -2 -5])，MATLAB 在 使 用 语 
多 9=p+l 时 调用 天 数 @polynomAmplusm 和 钙 polynomyAmtimes.m。 
4=p+l 
FE= pyq 





生成 


幅 一 
XA3 -24XK 一 二 
T 三 
FAG - 44XA4 -94 二 43XA2 + ]8+X 十 20 


(6) 重 载 邓 数 
MAITLAB 已 经 有 儿 个 可 以 操作 多 项 式 的 琐 数 ， 它 们 可 以 通过 重 载 ， 用 在 新 的 polynom 对 


了 2。 





象 中 。 在 许多 情况 下 ， 重 载 方法 可 以 将 原始 函数 应 用 于 系数 字段 。 
e 为 polynom 类 重 载 roots 方法 : 方法 @polynaomjroots.m 计 算 polynom 对 象 所 代表 的 多 项 
式 函 数 的 很。 
fanctionT = toots(P) 
T= TOetsfP-ey; 
The statemtent rootsfPp) 
IsSutts in amns = 
2.0946 
一 .0473 + 1.135 入 
-].0473 - 1.133 身 
e 为 polynom 类 重 载 polyval 方法 :， polyval 方法 计算 给 定点 集 的 多 项 式 。 
@@pelynom/Apolyvalm 使 用 艇 套 的 乘法 或 Homer 法 减少 计算 x 的 不 同 圭 次 的 乘法 操作 次 数 。 
funcetion y = polyvalfp,x) 
7=0， 
fora= pe 
平一 可 半 大 十 入; 


end 


e 为 polynoin 类 重 载 plot 方法 ， 用 root 和 polyval 重 载 plot 方法 。 


fnction plotfP) 
T= inaxfabsroots(p)]i 
X = 【下 .10.011.]ef 
了 =pobyvaltp, xy 
piot(x,y 
title(char(p)) 
Erd on 
as 重 载 di 珀 方法 : 方法 @polynormydiffm 对 一 个 多 项 式 进 行 求 导 。 方 法 是 寡 次 减 1， 用 原 
来 的 寡 次 乘 上 对 应 的 系数 。 
fanetion q = 二 任 [ 门 
= PC; 
如 = ]engthfe) - 1 扣 由 gee 
0 = polynomtp.efdl:d.*d: -二 :1 


下 面 用 methods 命令 列 出 类 的 所 有 方法 。 

Inethodqs polynom 

Methods for class polymnorm: 

chardishlaytminusblotpolynomrootsdiffdoublemtimespluspolyvalsubsref 
下 面 先 对 两 个 polynom 对 象 x 和 日 作 运算 ， 然 后 绘图 。 

X=polynomffl 0); 

了 P= polynomt[10 -2 -5]); 

plotkdifgprp + 10*p + 204x) - 20) 


生成 图 1-2。 
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图 1-2 才 项 式 曲线 











1.4 继承 


MATLAB 对 象 可 以 从 另 一 个 MATLAB 对 象 那里 继承 属性 和 行为 。 继 承 时 ， 子 对 象 包含 
父 对 象 的 所 有 字段 ， 并 且 可 以 调用 父 对 象 的 方法 。 父 方法 可 以 获取 子 对 象 从 父 类 那里 炙 承 的 
字段 ， 但 不 能 获取 子 对 象 的 新 字段 ， 

继承 是 面向 对 象 编程 的 关键 特征 。 它 通过 允许 子 对 象 利 用 已 经 存在 的 父 对 象 的 代码 ， 使 
得 代码 重用 偶 简 单 ， 继 承 使 子 对 象 的 行为 与 父 对 象 的 完全 类 似 ， 为 具有 相似 行为 但 实现 方式 
不 同 的 相关 类 的 开发 提供 了 方便 。 

有 两 种 继 革 类 型 ， 

sa 简单 继 藉 : 子 对 象 从 一 个 父 类 那里 继承 特性 。 

se 多 继承 : 子 对 象 从 多 个 父 类 那里 继承 特性 。 


1.4.1 简单 继承 


类 只 从 一 个 贫 类 那里 继承 属性 并 给 自己 添加 新 属性 时 ， 使 用 简单 继承 。 继 承 意味 着 属于 
子 类 的 对 象 具有 与 父 类 相同 的 字段 ， 以 及 其 他 字段 。 所 以 ， 父 类 的 方法 可 以 操作 属于 子 类 的 
对 象 。 但 是 子 类 的 方法 不 能 操作 属于 父 类 的 对 象 。 不 能 直接 从 子 类 获取 父 关 的 字段 ， 必 须 使 
用 为 父 类 定 尽 的 访问 方法 来 进行 访问 。 

继承 另 一 个 类 的 行为 的 类 的 构造 函数 具有 两 个 特点 : 

e 调用 父 类 的 构造 函数 来 创建 继承 的 字段 。 

e# class 畏 数 的 调用 语法 稍微 有些 差 别 ， 既 反 师 子 尖 的 特点 又 反 瞻 父 类 的 特点 。 

用 class 梢 数 创 建 简单 继承 关系 的 一 般 语 法 格式 为 ; 

childObj = class(childObj，childClass' parentObj): 

简单 继承 可 以 扩展 到 多 层 。 如 果 父 类 本 身 是 从 其 他 类 继承 来 的 ， 则 其 子 类 会 自动 继承 它 
祖父 类 的 特性 。 这 通常 称 为 多 层 继承 ， 

父 类 不 清楚 子 类 的 属性 或 方法 。 子 类 不 能 直接 获取 父 属 性 ， 而 必须 使 用 父 类 的 访问 方法 
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(例如 get 或 subsref 方法 ) 来 访问 父 属 性 。 利 用 子 类 的 方法 ， 通 过 子 类 结构 中 的 父 字 段 来 实 
现 该 访问 。 例 如 ， 下 面 用 术 造 丽 数 创 建 了 了 对象 e 时 ， 
c= 避 assfc,childClassname' ,ParentObject; 
MATLAB 自动 在 对 象 的 包含 父 对 象 的 结构 中 创建 一 个 字段 cparentClassname。 然 后 可 以 
在 子 对 象 调用 父 对 象 由 splay 方法 的 displtay 方法 中 添加 下 面 一 行 语 向: 


display(c.ParentClassnarme) 


1.42 多 继承 


多 继承 时 ， 对 象 可 以 从 多 个 父 类 那里 继承 属性 。 了 对 象 具 有 所 有 父 类 的 字段 和 它 本 身 的 
字段 。 多 继承 也 可 以 包 依 多 个 继承 层次 ， 例 如 ， 每 个 父 对 象 可 以 具有 从 多 个 祖父 对 象 那 里 继 
承 来 的 字段 。 通 过 调用 具有 3 个 以 上 参数 的 oass 函数 ， 吕 以 用 构造 函 煞 实现 多 继承 。 

DObj=class(structuTe, Classname' parentl,parent2,...) 

可 以 根据 需要 在 class 丽 数 的 输入 列表 中 深 加 多 个 父 参 数 。 

多 个 父 类 可 以 具有 名 称 相 同 的 方法 ， 此 时 ，MATLAB 调用 构造 函数 中 第 1] 个 出 现 的 父 类 
的 该 方法 。 不 能 访问 后 面具 有 该 名 称 的 父 藤 数 。 


1.4.3 “示例 一 asset 类 及 其 子 类 


作为 简单 继承 的 示例 ， 考 虑 一 个 一 般 的 财产 类 ， 它 用 于 表示 所 有 值钱 的 东西 ， 比 如 股票 、 
债券 、 存 款 等 。 设 计 这 个 类 集 时 ， 用 asset 类 包含 所 有 特殊 财产 子 类 的 公共 数据 。 单 个 的 财产 
子 类 ， 例 如 stock 类 继承 asset 类 的 属性 ， 并 具有 其 他 属性 。 子 类 表示 一 种 财产 。 


1， 继承 模型 

图 1-3 显示 了 asset 类 及 其 子 类 的 继 隋 关系 。stock、bond 和 savings 类 从 asset 类 那里 继承 
结构 字段 。 本 例 中 ，asset 类 保存 所 有 子 类 的 公共 属性 ， 并 提供 共有 的 方法 。 本 例 显示 了 如 何 
实现 asget 类 和 stock 类 。bond 类 和 savings 类 的 实现 方式 1j stock 类 的 相似 。 


| 维 取 的 属性 : 
deseriptof 
Gate 
cUITEnTVBIUE 























继承 的 属性 : 

























gescriptor descTipteor 
坦 志 date 
AUITentValue cuTrentwalme CUITEDtValue 











stock 尖 的 属性 : 
nnShates 
sharePrice 
asset 


hond 类 的 属性 : 
也 tetfestRate 
SSET 


savings 类 的 属性 : 
interes 限 ate 
asset 














图 1-3 asset 类 及 其 子 类 的 继承 关系 


2.， asset 类 的 设计 
asset 类 提供 对 其 所 有 子 类 公共 信息 的 保存 和 访问 能 力 。 因为 不 准备 直接 创建 该 类 的 实例 ， 
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所 以 不 需要 扩展 方法 集 。 为 了 实现 数据 保存 和 访问 ， 该 类 需要 包含 下 面 几 个 方法 : 
# 构造 函数 

get 和 set 函数 

subsref 和 subsasgn 函数 

出 splay 国 数 


3.， asset 类 的 其 他 方法 

asset 类 为 其 子 类 提供 数据 保存 ， 但 木 直接 进行 实例 化 。 利 用 set、get 和 display 方法 可 以 
访问 所 保存 的 数据 。 不 必 实 现 asset 对 象 的 所 有 方法 〈 例 如 转换 器 方法 、end 方法 和 subsindex 
方法 等 )， 因 为 只 有 子 类 访问 数据 。 


4.， asset 类 的 构造 函数 
asset 类 基于 有 4 个 字段 的 结构 数组 创建 ， 
e descriptor， 某 类 财产 的 标识 符 《〈 例 如 股票 名 称 、 存 款 账 号 等 )。 
e date:， 创建 对 象 的 日 期 〔 用 date 命令 计算 )。 
e type:， 财产 的 类 型 (如 存款 、 俩 券 、 股 票 等 )。 
es _ curentVatue: 财产 的 当前 数目 〈 根 据 子 类 数据 计算 )。 
这 些 信 息 对 于 asset 类 的 子 对 象 来 次 是 公共 的 ， 所 以 从 父 对 象 中 进行 控制 ， 以 避免 在 每 个 
子 类 中 定义 相同 的 字段 。 当 子 类 个 数 增 加 时 ， 这 非常 有 用 。 
function a = asSettyararginy) 
2 asset 对 象 的 构造 函数 
% aa=assettdescriptor cuUrentValue) 
Switch naagin 
CH88 日 
%% 如 果 没 有 输入 参数 ， 创 建 一 个 默认 对 象 
adescriptor = notne'; 
a.date = dale; 
atPe = none ; 
aeCUTeEDEVHue 一 站 ; 
熏 二 CasSfa,'a8Seft 7) 
Case 1 
%% 如 果 只 有 一 个 人 参数， 返回 它 
.iiSafvatargin{l] ,asSef 7 
3a=Yarargin{1Ij， 
18e 
errOr( Wrong argument type) 
end 
Case 3 
5 用 指定 值 创建 对 象 
adescTiptor = Yaurargima{ ll; 
a.date = date; 
atype = Varargin{2]: 
acUITentYalue = Yarargin{f3h， 
且 一 人 198S[( 和 SSet ); 
Dtherwise 
error( Wrong nuinber cf input arguments'》 
end 





= ]| 看 。 








函数 使 用 switeh 语句 将 3 种 可 能 情况 组 合 到 一 起 ; 

se 没有 参数 时 ， 构 造 困 数 返回 一 个 默认 的 asset 对 象 。 

es 有 一 个 参数 时 ， 对 象 简单 地 返回 它 。 

es 有 了 两 个 参数 时 ， 构 造 函 数 返 回 一 个 新 的 asset 对 象 ， 

不 直接 调用 asset 类 的 构造 函数 ， 而 是 从 子 类 构造 函数 中 调用 它 ， 因 为 提供 它们 的 目的 是 


保存 公共 数据 。 


与 ，asset 类 的 get 方法 
asset 类 需要 提供 访问 包含 在 asset 对 象 中 数据 的 方法 。 下 面 的 函数 实现 该 方法 。 它 使 用 大 
写 属性 名 提供 与 其 他 MATLAB 对 象 类 羽 的 接口 。 
fonetion val = get[a, propXMarne) 
5% 从 指定 对 象 那 里 获取 asset 类 的 属性 
双 并 返回 它 
Switch PropMNarme 
case "Descriptor 
Y 引 = a.descriptor: 
Case 人 Date- 
Ya] 一 adate; 
Case CurrentwValue' 
Yal = a.CDinentValhne; 








DiheTwise 
errom[DPropMNatme，Is nota valid asset Dropetty ]) 
end 


该 函数 接受 一 个 对 象 和 属性 名 输入 ， 并 使 用 switeh 语句 确定 访问 哪个 字段 。 在 继承 的 属 
性 中 访问 数据 时 ， 该 方 尘 被 子 类 的 get 方法 调用 。 


6，8asset 类 的 Set 方法 
asset 类 的 set 方法 被 子 类 的 set 方法 调用 。 该 方法 接受 一 个 asset 对 象 和 一 个 可 变 长 魔 的 
属性 名 / 值 对 参数 列表 作为 输入 ， 返 回 修改 后 的 对 象 。 
function a = Setavararein》 
皮 设置 asset 类 的 属性 并 返回 更 新 后 的 对 象 
propertyAreIm = varargin; 
While length(PropertyArgIn) >= 2， 
prop = PropertyArgImnf1j; 
yail = PropertyAreIt2h; 
PropertyArgIn = PropertyArgIn(3:end)， 
Switch Prop 
Case TescTiptor 
adescripter = val; 
Case Date' 
&.date = val; 
Case 刀 UITEDEValDe' 
a.CUTentValue = val' 
Otherwise 
emort Asset Properties: Descriptor Date CurrentValuen 
end 
end 
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子 类 的 set 方法 调用 asset 类 的 set 方法 , 并 需要 有 返回 修改 后 对 象 的 能 力 , 因为 MAITLAB 
不 支持 以 引用 方式 传递 参数 。 


7 了 .asgset 类 的 subsref 方法 

使 用 subsref 方法 访问 包 售 在 asset 对 象 中 的 数据 ， 访 问 时 使 用 以 1 为 底 的 数值 索引 和 结 
构 宇 段 名 称 索 引 。 外 部 的 switch 语句 确定 索引 类 型 是 数值 索引 还 是 字段 名 称 索引 。 内 部 的 
switch 语句 将 索引 映射 到 合 延 的 值 。 

不 管 什 么 时 候 以 下 标 形 式 引 用 对 象 (例如 A 人 或 A.fieldnamej，MATLAB 都 会 调用 subsref 
函数 ， 





fnction b = Stbsreffa,index) 
泊 为 aset 对 象 定 六 字段 名 索引 
Swjtch index.type 
Se 
Swjtch index.Subs{:} 
CaSe 上 
b = adeseribptori 
case 2 
b = adate; 
case 3 
b = aeUTTeatWwalue; 
othermwyise 
error(Jndex out of range')} 
end 
Case 
Switch jndex.Subs 
CaSE deseriptoe 
hb = a.descriptor; 
case date” 
b = a.date: 
Case CufrrentWwalue- 
b = acUrTEentValue' 
altherwjse 
erIOICimvallid 寿 eld name') 
enad 
Case 二 上 
erronCell array indexing not Supported by asset objects") 
end 


台 ，asset 类 的 Subsasgn 方法 

subsasSn 方法 与 subsref 方法 类 似 ， 但 用 于 赋值 。 使 用 它 可 以 用 坟 1 为 底 的 数值 天 引 和 结 
构 字 段 名 称 索 引 改变 包含 在 对 象 中 的 数据 。 外 部 的 switch 语 名 确定 索引 类 型 是 数值 索引 还 是 
字段 名 称 索引 。 内 部 的 switeh 语句 将 索引 映射 到 合适 的 值 。 

不 管 什 么 时 候 执 行 赋值 请 名 (例如 AD=valAfij=val 或 Afieldname=val，MATLAB 都 会 
调用 subsassm 函数 。 


各 nction a = subsasgnfaindex,vaa) 
上 6 为 asset 对 急 定 义 索 引 
Switch indiex ,type 























Case 人 

Switch index.subsf:} 
case 【 

adescriptor = val; 
CaSe 2 

adate = V 浊 
CaSe 了 

acUIrentValue = val; 
athetrwise 

errorfIndex out of range?) 
end 


Switch jindex.subs 
CaSe 呈 EScTiptor 
a.descriptor = v 世 ; 
Case date' 
attate = Val， 
cat utrentwalue' 
a.CUTEnEWValace 二 vali 
otherwise 
errorf Invalid ielq name') 
end 
end 


使 用 subsasgn 方法 可 以 用 两 种 方法 给 asset 对 银 数 据 结构 赋值 。 例如 , 假设 有 一 个 子 stock 
对 象 s 
S = stock(XYZ",100,25); 
在 stock 关 的 方法 中 ， 可 以 用 下 面 两 条 语句 中 前 一 条 改变 descriptor 字段 的 值 。 
8.aSSet[1) = 上 卫 护 ， 


8$.asSet.descTiptor = ABC: 


8，asset 类 的 由 splay 方法 
设计 asset 类 的 display 方法 ， 是 为 了 从 子 类 的 display 方法 中 调用 它 。 其 目的 是 显示 它 为 
子 对 象 保存 的 数据 。 该 方法 简单 地 格式 化 要 显示 的 数据 ， 显 示 格 式 与 子 对 象 display 方法 的 保 
持 一 致 。 
functiom displayfa) 
中 显示 一 个 asset 对 象 
Stg = Sprint 代 .. 
卫 escriptof 阁 SnDate: 2SnTYype 06SWCurrent waloe:o9.2T 


& descriptota.datedutypea.currentVatuey; 
Qispfs 疏 ) 


现在 ，stock 类 的 display 方法 可 以 调用 该 方法 来 显示 保存 在 父 类 中 的 数据 。 
10，asset 类 的 fieldcount 方法 


asset 类 的 fieldcount 方法 返回 asset 对 象 数 据 结构 中 的 字段 数 。 使 用 fieldcount 方法 ， 使 
asset 类 的 子 美方 法 可 以 在 执行 过 程 中 确定 asset 对 象 中 的 字段 个 数 ， 而 不 需要 子 类 方法 了 解 


a 号 








asset 类 。 这 使 得 可 以 在 不 改变 子 类 方法 的 条 件 下 改变 asset 类 数据 结构 中 的 字段 数 。 


function numFields = fedcounttassetObj) 
站 确定 asset 对 银 中 的 字段 数 

中 用 于 asset 类 子 类 的 方法 

numFields = lengthffieldnarmesfassetObji; 


stmect 函数 将 对 象 转换 为 它 的 等 价 数据 结构 ， 使 得 可 以 访问 结构 的 内 容 。 


11. 设计 stock 类 

用 stock 类 表示 股票 投资 。 访 类 包 插 2 个 自己 的 属性 和 3 个 从 父 对 象 继 承 的 属性 。stock 
类 自己 的 属性 为 numShares 和 sharePrice， 分 别 表示 股票 数 和 每 份 股 票 的 价格 : 从 asset 类 继承 
的 属性 为 deseriptor、date 和 currentValue，descriptor 为 该 种 财产 的 标识 符 ，date 为 创建 对 象 的 
日 期 ，currentwalue 为 财产 的 当前 值 。 

注意 ， 实 际 上 属性 名 与 stock 和 asset 对 象 内 部 使 用 的 结构 数组 的 宇 段 名 不 相同 。 属 性 名 
接口 由 stock 和 asset 的 set 和 get 方法 控制 ， 其 设计 类 似 其 他 MATLAB 对 象 属性 的 接口 。 

stock 对 象 结构 中 的 asset 类 字段 包含 父 asset 对 象 ， 用 于 访问 父 结构 中 的 继承 字段 。 


12，stock 类 方法 

stock 类 实现 了 下 面 一 些 方 法 ， 
e。 构造 函数 

es get 利 set 方法 

e subsref 和 subsasgn 方法 

se 可 splay 方法 


13- stock 类 的 构造 函 教 
stock 类 的 构造 函数 用 3 个 输入 参数 创建 stock 对 象 : 
s 股票 名 称 
s 持 股 数 
e。 股票 价格 
构造 函数 必须 从 stock 类 构造 函 产 内 部 创建 一 个 asset 对 象 ， 作 为 stock 对 象 的 父 对 象 。 所 
以 ,stock 构造 销 数 必须 调用 asset 类 的 构造 函数 。 被 调用 来 创建 stock 对 象 的 class 函数 将 assert 
对 象 作 为 父 对 象 定 义 。 
记 住 ，asset 对 象 是 在 stock 类 构造 通 数 的 暂时 工作 室 间 中 创建 的 ， 在 stoek 类 结构 中 作为 
宇 段 Lass 的 保存。stock 对 象 继承 asset 类 的 字段 ， 但 asset 对 象 不 会 返回 到 基本 工作 空间 。 
fanction s = StocKfvarareiny 
上 stock 类 的 构造 函数 
吕 5= stock(descriptior nnmShares, sharePrice) 
Switch margin 
Ca 站 
归 如 果 浊 有 输入 参数 ， 创 建 一 个 默认 对 稼 
SnurmShares =; 
S$,SharePrice = 让 
& = assetfmone' 0 和 
8 二 ClasSfS，8toCK ,3a): 
Case ] 


a 站。 





妈 如果 有 一 个 参数 ， 返 回 它 
证 fisafvarargini ] ] ,stock 7 
s=Yararginf lj， 
Se 
error(Input argumerlt is not a stock objeet) 
em 二 
Case 3 
% 用 指定 值 创建 对 象 
SmumeShares = varargin{2]i; 
SSharePrice = vaTargin3]， 
中 = SSet[varargin{E]， Stock vararein[ 了 2] * Varatein[ 了 jy) 
和 一 本 的 SS stock ,8 
QHerwise 
error(C Wrong nuImber of imnpmt argumlents'》) 
end 


14， 梅 造 函数 调用 语法 

stock 类 的 构造 函数 可 以 用 下 面 3 种 方式 中 的 一 种 调用 : 

e 没有 输入 参数 :如果 调 用 时 没有 输入 参数 ， 则 构造 函数 返回 默认 对 象 ， 字 段 为 空 。 

se 输入 参数 是 一 个 stock 对 象 : 如 果 输 入 参数 为 惟一 的 stock 对 象 ， 则 构造 函数 返回 该 输 
入 参数 。 如 果 输 入 参数 不 是 stock 对 象 ， 会 出 错 。 

e 3 个 输入 参数 ， 如 果 有 3 个 输入 参数 ， 构 造 尔 雪 用 它们 定义 stock 对 象 。 

如 果 不 满足 上 面 3 个 条 件 ， 返 回 一 则 错误 。 例如 ,下面 的 语句 创建 一 个 stock 对 象 来 记录 
100 股 XYZ 公司 的 股票 ， 股 票 价 格 为 每 股 25 美元 。 

匡 YZStock = stockfXYZ .100.25)， 


15，stock 类 的 get 方法 
与 句柄 图 形 类 似 ，get 方法 提供 了 用 "propertyname" 尖 型 的 接口 访问 stock 对 象 数据 的 一 种 
途径 本 例 中 ， 属 性 名 与 结 徇 字段 名 类 似 ， 可 以 有 很 大 的 不 同 。 也 可 以 选择 用 get 方法 别 除 革 
些 字段 ， 或 者 ， 如 果 恋 行为 与 设计 吻合 ， 可 以 从 同一 字段 给 多 个 属性 名 返回 数据 。 
如 nction val = gets,PropMNafmne) 
妇 从 指定 对 象 获取 stock 对 银 的 属性 
中 并 返回 值 。 属 人 性 名 汶 ， NumberShares 
和 SharePrice, Descriptor Date, Curentwalue 
Switch PropINarne 
ea6e ]VumberShares' 
Val = SutnShares; 
case '$harePrice' 
Val = 8.SsharePrice， 
caSe TDeseriptor' 
val = EBEt(s.asset,Diescriptar); % 调用 asset 对 象 的 get 方法 
Ca6e Dale' 
Val = getfs-asset, Tiate )， 
Case CUtTenEValue' 
V = 儿 etfs,asset, CHrrentwalue 
Dthefrwise 
ermrcor[propName ,Is notavalid stock froperty]) 
end 





小 ee 








注意 ，asset 对 象 通过 stock 对 象 的 asset 字段 (s.asseb) 进 行 访 问 ， 调 用 带 父 参数 的 class 函 
数 时 ，MATLAB 自动 创建 该 字段 。 


16，、stock 类 的 set 方法 
set 方法 提供 了 与 get 方法 类 似 的 "propertyname" 接 口 。 用 它 更 新 股票 数 、 股 票 价 格 和 股票 
名 称 。 当 前 信和 日 期 自动 进行 更 新 。 
fnetibths = SeHSsYararein》 
吧 将 stock 属性 设置 为 指定 值 
%% 并 返回 更 新 后 的 对 象 
PropertyATeIn = Varargin; 
while lengthtpropertyArgIn) >= 2， 
preop = PropertyArREInfT]; 
VB = propeTtYATEJn[2 有 5 
PropertyArgJm = Property 各 营 (3:end7 
SWitch prop 
case NumberShares' 
SaumShares = Vdl; 
Case SharePrice' 
$.Sharebrice = YY 和 
Case 了 ESCTPIOP 
8S.aSSET 一 SI8.as5Pt DescIiptoryval)i 
otherwise 
eIIOT IDvalid property ) 
end 
end 





8S.asset = Set[S.asset, CUTretttwalue'，,- 
S.0UmShares + S.SharepPrice, Date' .datem 


注 章 : 本 函数 用 新 值 创建 和 返回 一 个 新 的 stock 对 象 ， 然 后 改 盖 上 昌 值 。 铀 如， 对 于 stock 
对 象 
S= stockf(XYZ .100.25); 
下 面 的 set 命令 更 新 股票 价格 ， 
SS 一 Setfs, SharePrice' ,36)， 
材 盖 原来 的 steck 对 象 是 必要 的 ， 因 为 MATLAB 不 支持 以 引用 方式 传递 参数 。 所 以 set 
命令 实际 上 是 在 操作 对 象 的 复制 ， 


17，steck 对 象 的 Subsref 方法 
subsref 方法 为 stocg 类 定义 下 标 索引 。 本 例 中 ，supsref 函数 实现 了 stock 对 象 的 数值 索引 
和 结构 字段 名 称 索引 。 
fanection b = subsrefs,index) 
站 为 stock 对 象 定 义 字 段 名 称 索引 
丰 = fieldcowhtfs,asseth 
Switch idex.type 
Se (了 
并 (index.subs{ :| <= fy 
b = subsrers,asset,indexy 
ELSE 
Switch index.subsf:} -站 


人 





case ] 
bb = snumsShares; 
CSE 之 
b = ssSharePEnmecEe; 
otherwise 
Emorf['Index musgt be in 由 e Tange ] to ,Duriastrfc 十 之 )|) 
end - 
end 
CaSB 
Switch index.sttbs 
Case mmUShares' 
世 = sS.hUISNares; 
Case SharePrice' 
b = S$.SharePrice' 
Qtherwise 
b = Subsrefs.assebirdexy 
end 
end 


外 面 的 switch 语句 确定 索引 是 数值 索引 还 是 字段 名 索引 。asset 类 的 生 ldeount 方法 确定 
asset 结构 中 的 字段 数 ， 计 语句 为 索引 1 到 fieldcount 调用 asset 的 subsref 方法 。 

大 于 fieldeount 返回 个 数 的 数值 索引 由 里 面 的 switch 语句 控制 ， 它 将 索引 值 映 射 为 stock 
结构 中 的 台 适 字段 。 字段 名 索引 假设 numShares 和 sharePrice 以 外 的 字段 各 为 asset 字段 .asset 
类 的 subsref 方法 进行 字段 名 错误 检查 。 


18. stock 类 的 subsasgn 方法 
使 用 subsasgn 方法 , 用 数值 索引 和 结构 字 段 和 名 称 索 引 改 变 stock 对 象 中 包含 的 数据 。 不 管 
什么 时 候 执 行距 值 语句 ，MAITLAB 都 会 调用 subsaspm 方法 。 

如 mction 5 = Suhsasgnfs.index,yal) 

站 为 stock 对 象 定 闵 索 引 赋值 

ff = fieldecountfs.assety; 

SWitch index.type 

Case 人) 

让 (imndex.snbsf:}] <= ) 
8.aSset = SUbsasegnfs.assSetindex:val); 


elSe 
3Witeh imndex.sSubs1 :1 -te 
Case 1 
S.numShares 二 Val: 
Case 之 
S.SharePiice = Val; 
Otherwtse 
erIIOT[Jncdiex mst he iD 了 he Tange ] to ,numastr(fe +2] 引 
end 
ed 


CHSE 
Switch intiex.subs 
Case DObuShares' 
s.DUmShares = val; 


了 3。 











Case SharePrice' 
ssharePrice = val; 
Dtherwise 
SasSet = SUbsasgn(s.aSSetindex ,waly; 
end 
ent 


外 部 的 switch 语句 确定 迪 引 是 数值 索引 还 是 字段 名 索引 。asset 类 的 fieldcount 方法 确定 
asset 结构 中 的 字段 数 。 让 语句 中 ， 索 引 1 到 fieldcount 调用 asset 的 subsasgn 方法 。 

大 于 fieldcount 返回 个 数 的 数值 索引 由 里 面 的 switch 语句 控制 ， 它 将 索引 值 映 射 为 stock 
结构 中 的 合适 字 段 .字段 各 索引 假设 numShares 和 sharePrice 以 外 的 字段 名 为 asset 字段 。asset 
类 的 subsasgn 方法 进行 字段 名 错误 捡 查 。 

使 用 subsasgn 方法 使 得 可 以 用 厅 种 技巧 给 siock 对 象 数据 结构 指定 值 。 例如 ,假设 有 一 个 
Stock 对象 

= StockfXYZ ,100,25) 

可 以 用 下 面 两 种 语句 中 的 任何 一 种 改变 deseriptor 学 段 。 
弛 1 = 成 忆 仁 ， 

或 
sqescfiptor = ABC 


雪 . stock 类 的 display 方法 
在 命令 窗口 键入 下 面 的 命令 行 
站 YYZStiock = STOCK XTYZ ,100,25) 
MATLAB 在 @stock 月 录 中 查找 也 splay 方法 stock 类 的 display 方 法 生成 下 面 的 输出 结果 ， 
Date: 17-Nov-1998 
Type': stock 
Cunentt Value: 2500.00 
Number of shares 100 
Share pricel 25. 加 
Descriptor: 其 芋 乙 
下 面 是 stockg 类 的 display 方法 。 
fanction dsplayfs) 
引 显示 stock 对 象 
由 spliay(s,asset} 
8 名 = Spintif Nbimber of Shares: 32gnShare Price 553.2f0 
snumShares.s.SharePrice); 
dispfste) 
首先 ， 父 asset 对 象 传递 给 asset 类 的 display 方法 ， 显 示 它 的 字段 。stock 对 象 的 字段 用 格 
式 化 文本 字符 襄 以 类 似 的 方式 进行 显示 。 
注意 ， 如 果 不 实现 stock 类 的 display 方法 ，MATLAB 会 调用 asset 类 的 display 方法 。 此 
时 运行 仍然 正常 ， 但 会 只 显示 股 上 宗 名 称 ， 日 期 、 类 型 和 当前 值 。 











1.5 组 合 


除了 继承 外 ，MATLAB 还 支持 组 合 ， 即 一 个 对 象 可 以 将 另 一 个 对 象 作为 它 的 字段 进行 包 
售 。 例 如 ， 一 个 有 理 模型 对 象 可 能 会 使 用 两 个 多 项 式 对 象 ， 一 个 作为 分 子 ， 一 个 作为 分 母 。 

只 能 用 外 部 对 象 的 方法 调用 所 包含 的 对 象 的 方法 .确定 调用 函数 的 哪个 版 本 时 , MATLAB 
只 将 对 象 的 最 外 层 包 售 炎 作为 参数 传递 ， 任 何 被 包含 对 象 所 属 的 类 被 忽 咯 。 

组 合 将 一 个 类 包含 到 另 一 个 类 中 。 基 本 关系 是 每 个 被 包含 的 类 是 容 器 区 的 一 部 分 。 例 如 ， 
考虑 将 一 个 资产 类 作为 一 系列 财产 〔〈 有 股票、 债券、 存款 等 ) 的 容器 类 。 将 各 种 单独 的 财产 组 
合 到 一 起 以 后 ， 可 以 对 它们 进行 分 析 ， 并 返回 有 用 鸣 信息 。 所 包 售 的 对 象 不 能 直接 访问 ， 只 
能 通过 资产 炎 的 方法 进行 访问 。 

1， 设计 portfolio 类 

用 portfolio 类 描述 资产 ， 它 包含 某 侈 各 种 财产 并 提供 与 其 资产 状况 有 关 的 信息 。 本 例 
实现 一 个 比较 简单 的 porttolio 类 ， 该 类 有 下 面 儿 个 特点 和 功能 。 

ea 包 人 驹 个 人 财产 。 

s 显示 与 资产 内 容 有 关 的 信息 。 

4 显示 一 个 三 维 饼 图 ， 表 示 疙 资产 中 不 同类 别 的 财产 所 占 的 份额 。 


2，portfolio 类 的 方法 

Portiolio 类 只 实现 3 个 方法 ， 即 

e pottfolio 方法 : 为 构造 斑 数 ， 

# display 方法 ， 显 示 与 资产 内 容 有 头 的 信息 。 

es pie3 方法 : 为 MATLAB pie3 函数 的 重 载 版 本 ， 参 数 只 有 一 个 portfolio 对 象 。 

因为 pertfolio 对 象 包含 其 他 对 象 , portfolio 类 的 方法 可 以 使 用 所 包含 的 对 象 的 方法 。 例 如 ， 
portfolio 对 象 的 下 splay 方法 可 以 调用 stock 类 的 display 方法 ， 等 等 。 


3. portfolio 类 的 构造 销 数 
porttfolio 类 的 构造 亢 数 将 一 个 客户 名 称 和 一 个 可 变 长 度 的 子 类 对 和 象 财产 列表 作为 输入 参 
数 。portfolio 对 象 使 用 具有 下 列 字段 的 结构 数组 ， 
se。 name: 客户 和 名称 。 
se indAssefs， 子 类 对 象 数 组 。 
e totalValue: 所 有 财产 的 总 额 。 构 造 函数 计算 作为 参数 传 入 的 对 象 的 财产 总 额 。 
e accountNumber， 账 号 。 该 字段 具有 在 保存 portfolio 对 象 时 进行 赋值 。 
porttolic 类 的 构造 函数 如 下 所 示 ; 
fumection p = Portfoliofnarme,varargin) 
5 创建 一 个 包含 客户 名 称 和 财产 列表 
5 的 portfolio 对 象 
Switch narg 训 
Case 如 
站 如 果 没 有 输入 参数 ， 创 建 默 认 对 象 
pname = 'Tone' 
ptotalvalue = 0; 


号 





PindAssets = { 
PaccountNumber = 
上 = class(p, portiolio ); 
case | 
%% 如 果 有 一 个 portfolio 类 的 输入 参数 ， 返 回 它 
直 igafnatme,bortfolio7 
P = Daimnei 
elSe 
出 sp([imputnamefl) 让 not a portfolio object 直 
卫 fDTm 
end 
gtherwise 
5 用 指定 参数 创建 对 象 
P.name = name; 
PtotalValue = 心 
for = 1:lengthfvarargin) 
PindAssets(k]) = {Yararein{ 攻 ] }: 
assetValtie = Bet(p.indAssets 人 k],CurentValueJ; 
P.totalVaune = ptotalwalue + asSetVakue; 
end 
PaccountNumber = ”， 
P = classfp, Portfolo7y， 
end 


4.， 构造 函数 的 调用 语法 

portfolio 类 的 构造 衣 数 方法 可 以 用 下 面 3 种 方法 中 的 一 种 进行 调用 : 

s 没有 输入 参数 : 如 果 调 用 时 设 有 输入 参数 ， 返 回 一 个 具有 空 字段 的 对 象 。 

sa 输入 参数 是 一 个 对 象 : 如 果 和 输入 参数 是 一 个 portfolio 对 象 ，MATILAB 返回 输入 参数 。 
可 以 用 isa 函数 进行 检查 。 

e 参数 多 于 2 个 :如 果 参 数 多 于 2 个， 构造 函数 认为 第 1 个 参数 是 客户 名 称 ， 其 余 参数 
为 财产 子 类 。 一 个 更 保险 的 方法 是 对 输入 参数 进行 检查 。 例 如 ， 使 用 isa 函数 确定 参数 是 否 是 
正确 的 对 象 类 。 


5， portiolio 类 的 display 方法 
pottfolio 类 的 display 方法 通过 调用 对 象 的 display 方法 ， 列 出 所 包含 的 每 个 对 象 的 内 容 。 
然后 列 出 客户 各 和 资产 总 额 。 
各 action displayfp) 
9 显示 Borfolic 对 象 
fork= 1l:lengthtp,jndAssets) 
了 isplay(P.indAssets{kjl》 
end 
St = Sprintff nsS6ets for Client 50smTotal Value 5%92Rn 


pnarne,p.totalValue); 
硬 spfstg) 
各 portfolio 类 的 所 63 方法 
portfolio 类 重 载 MATLABH 的 pie3 函数 ， 输 入 参数 为 一 个 porttolio 对 象 ， 显 示 一 个 三 维 饼 
图 ， 表 示 各 种 财产 之 间 的 比例 关系 。 不 管 秆 么 时 候 ， 只 要 输入 参数 是 一 个 Portfolio 对 象 ， 


= 了 和 





MATLAB 都 会 调用 pie3 的 @portfoliovpie3.m 版 本 。 


function Pie3fp) 
5 创建 资产 数据 的 3 维 饼 图 
stockAtnt = 0 bondAmt = 0: savingsAmt = 人 10; 
fork = llengthfp.indAssets) 
让 isa(p-indAsSets{kj，'stock') 
StocEAtmnt = SIOCKATmt 十 .… 
gettp,indAssets{kl，CnrmentValue 
elseifisafp.indAssets{kl, bond ) 
bendAtmt = hondArmt + ..， 
Bettp,indAssets{KH，CurrentValue 小 
elseif isafp.indAssets{Kk]，savings 
savingsAimt = S8VingsAmt 十 …， 
gettp.indAssets{k， CurrerttValbe ); 
end 
ed 
1i= 1; 
证 stockAmt ~= 
lahelti = ['Stocks'}; 
PieWector(i = StockArmt; 
1=1I+1; 
end 
让 bondAmt ~= 必 
labelfiny = TBonds }; 
Rievectorg) = bondAmt 
=i+ 1; 
end 
详 savingsArmnt ~ 一 口 
labelfi = fSavings']; 
TieWectoriy = savings 上 mt 
end 
Pie3fPieVector lahbe]) 
Set[ecfT "及 enderer，zbuffer) 
set[findobj(gca "Type'，Text)，FontSize ，14) 
cm = Eray(64》 
eolormapfctmn(48:end, : 
stgfly= frPortelio Compesiticn foer ,pnamej; 
stg(2) = {["Total Value of Assets: 和 num2str(p.totalValuej]}; 
titiefstg，FontSize，12) 


土 面 重 载 的 pie3 方法 主要 有 以 下 3 方面 的 内 容 : 

es。 首先 用 财产 子 类 的 get 方法 访问 所 包含 的 每 个 子 类 的 CurrentValue 属性 。 将 每 个 类 的 
财产 总 额 加 起 来 。 

。 其 次 ， 根 据 所 存在 的 对 象 ， 创 建 饼 图 标签 并 生成 图 形 数据 组 成 的 矢量 。 

。 第 3 部 分 ， 调 用 MAILAB 的 pie3 函数 ， 调 整 某 些 字体 和 颜色 查找 表 , . 并 添加 标题 。 


7. 使 用 portfolic 类 
假设 用 与 实现 stock 类 相似 的 方式 实现 了 一 系列 财产 子 类 集合 ， 然 后 可 以 用 一 个 portfolio 
对 象 列 出 资产 信息 。 司 如， 给 定 下 面 的 财产 设置 


和 全 了 


区 下 Se 三 加 5 乱 征 于 3 二 扩 

天生 直 司 而 [三国 EV 鸭 吕 所 有 E 则 了 3 二 CD 汪汪 
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Portfalio 对 象 的 display 方 性 可 以 显示 性 产 内 容 ， 如 下 所 下 : 
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使 用 pie3 方法 ， 用 饼 图 显示 各 种 财产 的 比 2 

例 关 蒜 。 几 且 服 
有 Na 旧 1.4 用 pertfsllo 类 的 Pie3 方法 生成 忆 图 
> -4 


1.6 保存 和 装载 对 象 


可 以 使 用 MATLAB 的 save 和 load 合乎 特 自 定 交 财 象 保存 到 ,m 了 文件 或 从 wmat 六 件 中 提 
取出 自 定 炙 对 象 ， 著 地 对 象 时 ，MATLAE 铀 用 对 象 的 构造 函数 ， 将 对 铺 瞄 入 到 工作 空间 。 对 
和 银 类 的 构造 函数 必须 能 在 没有 蛤 入 佑 数 的 情况 下 然 调用， 并 返回 默认 对 象 ， 


1L6.1 保存 或 载 入 时 收 改 对 铺 

对 对 旬 使 用 save 或 load 从 筷 时 ，MATLAB 在 灯 目 录 中 寻 搜 攻 为 甸 Veobj 和 loadohj 的 闫 
方法 。 可 以 在 保存 或 装载 以 前 通过 重 载 这 些 方法 来 修改 对 象 ) 例如 ， 可 以 定义 saveobj 方法 ， 
它 保 存 相 半数 据 和 对 粤 ， 或 者 编写 Iondobj 方法 ， 在 对 象 类 型 已 还 吉 六 到 MATLAB 工作 宝 癌 
时 ， 把 对 铺 更 新 到 新 季 本 。 
1.6.2 示例 一 一 为 portfolio 类 定义 saveobj 和 loadobj 方法 

在 上 一 节 的 示例 中 ， 用 partolio 类 搜 埋 与 客户 资产 有 基 的 信息 ， 申 在 假设 要 在 保存 的 紫 
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个 portfolio 对 象 中 添加 一 个 账号 ， 可 以 定义 一 个 saveobj 方法 ,在 进行 保存 操作 时 自动 完成 此 
任务 。 

进一步 假设 已 保存 了 很 多 没有 账号 的 portfolio 对 象 ， 现 在 要 在 载 和 操作 时 更 新 它们 ， 并 
且 使 其 仍然 是 台 潜 的 Portfolio 对象 ， 可 以 通过 为 portfolio 类 定义 loadobj 方法 来 实现 这 一 点 。 


1， 代 码 变化 综述 

要 实现 账号 设 定 ， 需 要 添加 或 改变 下 面 的 函数 ， 

portfolio， 需 要 修改 portfolio 类 的 构造 函数 方法 来 创建 一 个 新 字段 accountyumber， 创 
建 对 象 时 它 初始 化 为 空 字符 串 。 

ea Saveobj: bottfolio 类 的 新 方法 。 在 进行 保存 操作 时 ， 如 果 portfolio 对 象 没 有 账号 ， 该 
方法 给 它 语 加 一 个 账号 ， 

ea loadobj，portfolio 类 的 新 方法 。 用 于 更 新 portfolio 对 象 的 老 版 本 ， 它 们 在 添加 账号 结 
构 字 段 以 前 保存 。 

se Subsref: pottfolio 鞠 的 新 方法 。 利 用 它 对 portfolio 对 象 进 行 下 标 引 用 

9 getAccountNumber 为 MAILAB 冰 数 ， 返 辕 由 客户 名 前 3 个 字母 组 成 的 账号 。 


2 新 portfolio 类 的 行为 

添加 新 方法 以 后 ，bortfelio 类 有 下 面 一 些 新 的 行为 : 

e 为 账号 包 舍 一 个 字段 。 

es 第 1 次 保存 porttolio 对 象 时 添加 耘 号 。 

se 将 bortfolio 对 象 载 入 到 MATLAB 工作 空间 时 更 新 它们 的 老 版 本 ， 


3 Saveobj 方法 
不 管 什 么 时 候 save 命令 传递 portfolio 对 象 ，MATLAB 都 会 查找 portfolio 类 的 saveobj 方 
法 。 如 果 @portfoliovsaveobj 存在 ，MATLAB 会 将 portfolio 对 象 传递 给 saveobj 方法 ， 然 后 它 
必须 将 修改 后 的 对 象 作为 输出 参数 返回 。 下 面 的 代码 实现 saveobj 方法 ， 确 定 对 象 是 否 已 经 在 
前 面 的 保存 操作 中 指定 了 一 个 账号 。 如 果 没 有 ，saveobj 函数 会 调用 getAccountNumber 来 获取 
账号 并 将 它 赋 给 accountNumber 字段 。 
加 nction b = Saveobjfa) 
让 isempty(a.accountNthmben) 


aaccountMNumhber = getaccotmntNurmberra); 
end 





b = di 


4. Ilcadobj 方法 

不 管 化 么 时 候 load 命令 在 正在 载 入 的 .mat 文件 中 发 现 portfolio 对 象 ，MAITLAB 都 会 查 
找 portfolio 类 的 loadobj 方法 如 果 ]loadobj 方法 存在 ,MATLAB 将 portfolio 对 象 传递 给 loadobj 
方法 ， 然 后 它 几 须 将 修改 后 的 对 象 作为 输出 参数 返回 ， 再 将 输出 参数 坊 入 到 工作 空间 中 。 

如 果 输 入 对 象 与 构造 函数 指定 的 当前 定义 不 匹配 ，MATLAB 将 它 转换 为 一 个 包含 相同 字 
刁 的 结构 ， 并 且 对 象 的 结构 保持 原 有 的 值 不 变 。 

下 面 的 代码 实现 loadobj 方法 ， 首 先 用 isa 函数 确定 输入 参数 是 portfolio 对 象 还 是 结构 。 
如 果 和 输入 是 对 象 , 只 需要 简单 地 返回 它 , 因为 不 需要 进行 修改 , 如果 输入 参数 已 经 被 MATLAB 
转换 为 结构 ， 则 将 新 字段 accountNumber 添加 给 结构 ， 并 创建 一 个 更 新 后 的 portfolio 对 象 。 
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fnction b = ]oadobjfay 

5 portfolio 类 的 loadobj 方法 

让 isala portfolio) 
b = 可 

else 5 3 是 老 版 本 
aaccountNumhber = getacceountNumbenmay， 
bb = classfa portfalio' 

end 


5， 改变 portiolio 类 的 构造 函数 
portfelio 结构 数组 需要 一 个 额外 的 字段 来 包含 账号 ， 为 了 创建 该 字段 ， 将 下 面 的 命令 行 
pP.accountNumber = “: 


添加 到 @@portfolioportfelio.m 中 无 参数 和 有 参数 的 代码 段 。 


6.， getAccountNumber 函数 


本 例 中 , getAccountNumber 是 -个 MATLAB 函数 , 它 返 回 前 面 是 客户 名 称 的 前 3 外 字母， 
后 面 跟 一 串 数 字 的 账 导 。getAccountNumber 国 数 不 是 一 个 portfolio 方法 ， 因 此 它 不 能 直接 访 
问 Portfolio 对 象 的 数据 。 所 以 ， 有 必要 定义 portfolio 的 substef 方法 来 访问 portfolio 对 象 结构 
中 的 名 称 字段 。 
本 例 中 ，getAccountNumber 图 数 简单 地 创建 一 个 随机 数 ， 它 用 porttolio 名 称 字段 的 第 1 
到 3 个 元 素 进行 格式 化 和 桶 合 。 
function mn = getAccountNumberP) 
贤 为 对 急 p 提供 一 个 账 导 
站 = [upperbnamer1:37) strcatnartstrtroundfraned(1, 7) 站 ]， 
注意 ，portfolio 对 象 用 字段 名 进行 索引 ， 然 后 用 数值 下 标 提取 出 前 3 个 字母 。 必 须 编写 
subsref 方法 来 支持 该 下 标 引 用 形式 。 


7. portiolio 类 的 Subsref 方法 
MATLAB 遇 到 下 标 引 用 ， 例 如 在 getaAccountNumber 函数 中 所 做 的 : 
pnamell :3) 
MAILAB 会 调用 portfolio 类 的 subsref 方法 来 解释 该 引用 。 如 果 没 有 定 尽 subsref 方法 ， 
就 不 会 为 portfolio 对 象 定 义 上 面 的 语句 。 
为 了 能 使 getaAccountNumber 函数 访问 portfolio 类 的 name 字段 ，portfolio 类 的 subsref 方 
法 必须 支持 字段 名 和 数值 索引 。 
funection b = Subsreftp,indexy) 
% 为 portfolio 对 象 定义 字段 名 宕 引 
Switch indexf1l).type 
C8Se 
Switch indexf1).Subs 
SaSe 了 RONE 
这 lengthktindex)== 1 
b = 记 narme; 
elSe 
Switch imdexf2)-type 
case 人 
= Bonamerindexf2).s50bs 全 让) 
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1.7 对象 优 先 级 


一 般 来 讲 ，MATTAB 假设 对 象 有 相同 的 优先 级 ， 但 下 面 两 种 情况 例外 。 
# 自 定 义 类 具有 比 MATELAB 更 高 的 优先 级 。 
e# 使 用 inferiorto 和 superiorto 函数 ， 可 指定 自 定 义 类 的 相对 优先 级 。 


1.7.1 指定 自 定义 类 的 优先 级 


通过 在 构造 萎 数 中 调用 inferiorto 或 superiorto 函数 来 指定 自 定 义 类 的 相对 优先 级 。 在 优 
先 层次 中 ，inferiorto 函数 将 一 个 类 放 在 其 他 类 的 下 面 。 该 函数 的 调用 语法 为 ， 
infeTiortofeclass]l' class2' ) 
可 以 在 参数 列表 中 指定 多 个 类 ， 招 这 些 类 放 在 其 他 类 的 下 面 。 同 样 ，superiorto 函数 将 一 
个 类 放 到 优先 层次 中 其 他 类 的 上 面 。 该 函数 的 调用 语法 为 ， 


Superiorto(t class] ,class2，…) 


1.7.2 在 优先 层 砍 中 定位 


在 优先 层次 中 ， 如 果 objecta 在 objeetB 的 上 面 ， 则 表达 式 objectA+objectB 调用 
@@classA/pius.m; 相反 ， 如 果 objectB 在 objectA 的 上 面 ， 则 该 表达 式 调 用 @classB/plusm。 
一 个 目录 中 可 能 包含 许多 函数 (M 文件 )。 在 单个 目录 中 ， 函 数 名 必须 是 惟一 的 。 但 多 个 
目录 中 可 以 包含 名 称 相同 的 函数 。 在 命令 行 中 键入 函数 时 ，MATLAB 必须 搜索 可 能 调用 该 函 
数 的 所 有 目录 。 查 找 函数 时 ，MATLAB 按 路 径 中 罗列 的 顺序 搜索 目录 ， 并 调用 名 称 与 指定 函 
数 相 匹配 的 第 一 个 函数 。 面 向 对 象 编程 多 许 有 多 个 同名 的 方法 ， 对 于 MATLAB 来 说 ， 这 些 方 
法 就 是 类 目录 中 的 MATLAB 函数 ， 根 据 传递 给 函数 的 参数 所 属 的 类 ，MATLAB 确定 使 用 什 
么 方法 。 例如， 如 果 p 是 一 个 pertfolio 对 象 ， 则 pie3( 四 调用 @pertfolio/pie3.m。 因 为 参数 是 
portfolio 对 象 。 
使 用 whicl 命令 ， 可 以 确定 MATLAB 将 调用 哪个 方法 。 例 如 ， 
Which pic3 
YoUT .matiab_pathftoolboexAmnatlab/specgraphypie3.m 
但 是 ， 如 果 了 是 一 个 pertfolio 对 象 : 
Which Pie3fp) 
dir on your hath/@@portfoliofmie3.tm 5 portfolio 方法 
如 果 传 递 一 个 portfolie 对 象 作为 输入 参数 ，which 命令 确定 将 调用 哪 一 个 pie3 版 本 。 要 
察看 MAILABH 路 径 上 特定 函数 所 有 版 本 的 列表 ， 使 用 -all 选项 。 
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第 2 章 改善 MATLAB 的 运行 效率 


与 Visual Basie 一 样 ，MATLAB 是 解释 型 语言 ， 存 在 计算 速度 馒 的 问题 。 为 了 提高 程序 
的 运行 数 率 ,MATLAB 提供 了 多 种 实用 工具 ,建议 了 一 些 编码 技巧 。 本 章 将 对 编码 技巧 .Profiler 
工具 、profile 函数 和 内 存 处 理 等 进行 介绍 。 


2.1 改善 运行 的 技巧 


本 节 是 一 个 综述 性 的 分 绍 。 内 容 包 括 分 析 程 序 运 行 状况 的 工具 、 函 数 和 方法 ， 循 环 天 量 
化 ， 内 存 预 分 配 和 其 他 一 些 技巧 。 


2.1.1 分 析 程 序 的 运行 状况 


通过 Profiler 工具 和 查看 运行 时 间 的 函数 ， 能 够 得 到 程序 如 何 运行 的 详细 信息 ， 并 帮助 找 
到 需要 改进 的 地 方 。 


1，Profiler 工具 
加 速 程序 运行 的 第 1 步 是 找到 花费 时 间 比 较 多 的 代码 行 的 位 置 并 优化 这 些 代 码 。 使 用 
Profiler 工具 ， 可 以 找到 这 些 位 置 。 关 于 Prefiler， 请 参见 2.2 节 的 内 容 。 


2， 查 看 运行 时 间 的 函数 
如 果 需 要 知道 程序 运行 所 花费 的 时 间 ， 或 者 比较 不 同 程序 的 运行 速度 ， 可 以 使 用 查看 运 
行 时 间 的 函数 tc 和 toc。 调 用 ti 函数 时 启动 计时 器 ， 后 面 的 第 1 个 toc 函数 终止 它 并 报告 所 
花费 的 时 间 。 恕 ， 
te 
- 运行 要 计算 时 间 的 程序 段 


toe 


3 计算 短程 序 运行 所 花费 的 时 间 
有 的 程序 很 短 ， 运 行 时 ， 因 为 速度 太 快 ， 以 至 于 使 用 te 和 toc 都 得 不 到 有 用 的 信息 。 发 
生 这 种 情况 时 ， 尝 试 把 该 程序 放 到 一 个 循环 中 ， 然 后 将 执行 该 循环 所 花费 的 时 间 除 以 循环 次 
数 得 到 运行 那个 短程 序 一 次 所 花费 的 时 间 、 如 : 
fic; 
fork = 1:100 
- 运行 短程 序 100 次 





ed ; 
toe 


则 运行 短程 序 一 次 所 花费 的 时 间 等 于 执行 整个 循环 所 花费 的 时 间 除 以 100。 
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2.1.2 循环 矢 晤 化 


1， 矢量 化 方法 
MATLAB 是 一 个 第 阵 语 言 ， 是 为 矢量 和 乞 阵 操作 设计 的 ， 可 以 通过 矢量 化 方法 来 如 速 M 
文人 性 的 运行 。 舌 量化 指 的 是 将 for 循环 和 while 循环 转换 为 等 价 的 矢量 或 矩阵 操作 。 例 如 ， 下 
面 以 0.01 为 间隔 计算 0 到 10 之 间 1001 个 数 的 无 弦 值 。 
i= 少 
fort= 站 :.01 :二 
ji = ji]1; 
7(D = sin(b; 
end 
天 量化 以 后 ， 为 ， 
t=0:.01:10; 
7= sin(b; 


矢量 化 以 后 比 未 矢量 化 时 要 快 很 多 ， 可 以 用 tic 和 toc 函数 进行 测试 。 


2. 人 司 用 了 矢量 化 的 函数 

MATLAB 中 ， 有 些 函 数 内 部 已 经 采用 了 矢量 化 处 理 ， 因 而 运行 效率 比较 高 。 这 些 函 数 的 
函数 名 如 表 2-1 所 示 。 

圳 2-1 MATLAB 中 使 用 了 矢量 化 的 函数 
是 pemate |pemate |eaape。 |weem 
邮 | mm sbifdim 
FE 


下 面 以 repmat 函数 为 例 ， 具 体 介 绍 它 内 部 是 如 何 进行 矢量 化 处 理 的。 该 函数 有 3 个 输入 
变量 : 数组 A、 行 维 数 M 和 列 维 数 的 ， 通 过 将 数组 A 做 MXHN 的 “ 春 置 ”操作 来 生成 新 的 矩 
阵 ， 如 下 所 示 ; 











上 丰 =[12345 介 ; 

也 = Iepmat[ 和 ,237 

下 = 
1 2 3 了 3 1 2 3 
二 5 6 二 5 6 生 5 间 
1 2 了 ft 了 3 上 2 了 
术 5 夏 生 3 乒 二 5 


repmat 函数 通过 矢量 化 创建 编码 ， 这 些 编码 把 元 素 放 在 输出 数组 中 。 该 函数 的 代码 如 下 
所 示 : 
fnetion 了 = repmat(A,M NT 
让 margin < 2 
erron Requires at least 2 inputs,) 
elseif natgin 一 之 
= RM 
end 


5%% 第 1 步 获 到 行 和 列 的 大 小 
33 








[mn] = sizetAA 和 


5%% 第 2 步 生 成 编号 从 1 到 行 或 列 的 大 小 的 矢量 
iin 呈 三 (1:miD 
2 = 人); 


扫 第 3 步 根 据 上 面 的 矢 星 创 建 编号 抑 阵 
mindg = findt:,onesf1 .MD); 
nind = nindfionesf1,N7， 


反 第 4 步 创 建 输出 数组 
吾 = ACTindnind): 
可 见 ，repmat 函数 通过 4 个 步骤 来 生成 新 矩阵 。 
第 1 步 获 取 输 入 数组 行 和 列 的 大 小 。 
第 2 步 创建 两 个 列 矢量 , Inind 包含 从 1 到 A 的 行 数 的 整数 ，nind 包含 从 1 到 A 的 列 数 的 
整数 。 
第 3 步 通 过 一 个 MAILAB 矢量 化 技巧 把 单列 数据 复制 到 任意 多 列 。 代 码 为 : 
了 = 和 (onesf],n_cois 妨 
其 中 ，n_cols 是 最 终生 成 的 矩阵 的 列 数 。 
第 4 步 通过 数组 索引 创建 输出 数组 ， 行 号 数组 mind 的 每 个 元 素 与 列 导 数组 mind 的 每 个 
元 素 相 匹配 ， 通 过 下 面 的 过 程 来 实现 
《1 mind 的 第 1 个 元 素 ， 即 行 号 ， 与 nind 的 每 个 元 素 相 匹配 。MATLAB 按 列 序 在 nind 
矩阵 中 移动 , 所 以 mind(11) 首 先 从 mind(1, 巧 开始， 然后 是 mind(2,1)。 其 结果 是 输出 数组 的 第 1 
行 被 十 油 。 
(2) 对 inind 中 的 每 个 元 素 重复 上 面 的 过 程 ， 得 到 输出 数组 。 


2.1.3 数组 的 内 存 预 分 配 


1， 给 数组 预 分 配 内 存 
可 以 通过 给 保存 输出 结果 的 数组 预 分 配 内存 空 间 来 改善 代码 的 运行 效率 。 预 分 配 使 得 不 
必 在 每 次 数组 变 大 时 进行 改变 。 针 对 不 同类 型 的 数组 使 用 合适 的 预 分 配 函 数 如 表 2-2 所 示 。 


表 2-2 ”针对 不 同业 型 的 数组 使 用 合适 的 预 分 配 范 数 


| 数 昏 类 型 “| 预 9RB 数 | 三 全 | 
及 = celtht2 3; 

卫 站 了 = 了 

卫 [2,2} = sbing 

下 = fpinatfstructfx ,1 3]，,， 
了 :05 5) 1 3); 


使 用 大 型 窍 阵 时 ， 预 分 配 还 可 以 帮助 减少 内 存 碎 片 。MATLAB 中 ， 进 行动 态 的 内 存 分 配 


各 取消 分 配 时 ， 内 存 可 能 会 成 为 碎片 。 这 将 导致 大 量 闲 置 内 存 的 产生 。 预 分 配 则 可 以 通过 在 
计算 以 前 给 大 型 数据 结构 “预约 ”足够 的 空间 来 避免 这 个 问题 。 
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2.， 给 非 deuble 型 矩阵 预 分 车 内 存 
给 double 型 以 外 的 矩阵 预 分 配 一 个 内 存 块 时 ， 使 用 fepmat 函数 的 效果 更 佳 ， 此 时 可 以 到 
得 更 好 的 效率 和 更 快 的 运行 速度 。 
下 面 的 语句 用 zeros 函数 预 分 配 -- 个 uintg 型 100X 100 的 矩阵 。 首 先 ， 创 建 一 个 double 
型 满 秩 旋 阵 ， 然 后 把 矩阵 转换 为 uint8 型 ， 这 将 导致 不 必要 的 时 间 和 内 存 花 费 。 
上 =intgfzeros(100)); 
使 用 repmat 函数 ， 只 需要 创建 一 个 double 值 ， 从 而 减少 了 对 内 存 的 需求 。 
和 =IEpmatlintg0l, 100, 100); 
在 不 能 进行 预 分 配 的 时 候 ， 看 是 否 能 通过 fepmat 函数 使 数组 变 大 ， 用 Tepmat 函数 扩展 矩 
阵 时 ， 可 以 获得 连续 的 内 存 块 。 


2.1.4 ”加速 运行 的 其 他 方法 


1. 用 MEX 文件 编写 循环 代码 

必须 使 用 for 循环 时 ， 把 它 写 为 MEX 文件 。 这 样 ， 循 环 会 运行 得 更 快 。 因 为 不 必 在 每 次 
运行 循环 中 的 语句 时 都 对 它们 进行 解释 ， 

2， 变量 赋值 

进行 变量 赋值 时 ， 要 注意 两 点 。 首 先 ， 改 变 已 有 变量 的 数据 类 型 或 数组 形状 会 使 程序 运 
行 速度 减 慢 ， 因 为 这 需要 额外 的 时 间 进 行 处 理 。 需 要 保存 不 同类 型 的 数据 时 ， 建 议 创建 新 变 
量 。 其 次 ， 如 果 一 个 变量 已 经 赋 给 了 实数 或 复数 ， 现 在 又 赋 给 它 复 数 或 实数 会 影响 运行 速度 。 


3 操作 实 型 数据 
MATLAB 为 操作 实 型 数 特 意 设计 了 一 些 函 数 ， 使 用 这 些 函 数 进行 实数 操作 时 比 使 用 一 般 
函数 快 。 这 些 函 数 包 括 Teallogxrealpow 和 realsqrt 等 。 
4. 使 用 合适 的 地 辑 运 算 符 
进行 逻辑 AND 或 逻辑 OR 时 ， 有 两 种 选择 ， 如 表 2-3 所 示 。 
表 2-3 逻辑 AND 和 曙 辑 OR 的 下 种 选择 


运 和 兽 符 描 述 
及 ,| 对 数组 进行 逐 元 素 的 逻辑 &ND 或 逮 辑 DR 比 忱 


对 标量 信 进 行 罗 辑 AND 或 远 辑 OR 比较 


在 证 和 while 语句 中 ， 司 用 廊 入 和 | 更 有 效率 。 因 为 这 两 个 运算 符 不 一 定 计算 整个 表达 式 ， 
例如 下 面 的 语句 中 ， 只 要 输入 参数 的 个 数 小 于 3，MATLAB 就 会 只 计算 表达 式 的 前 半 部 分 ， 
而 不 会 继续 计算 下去 。 

让 (nargin >= 3) 此 皮 Tischarfvarargin{13] 力 

5. 重 载 内 部 函数 

一 般 不 要 重 载 MATLAB 内 部 函数 ， 因 为 重 载 内 部 函数 比 直接 使 用 内 部 函数 费时 。 

6， 函数 比 脚 本 运行 更 快 


函数 中 的 代码 比 肝 本 中 的 代码 运行 得 更 快 。 在 MATLAB 中 ,每 次 使 用 脚本 时 都 要 把 它 装 
入 内 存 ， 然 后 逐 行 运行 ， 而 函数 则 被 编 详 为 代码 ， 只 需要 装 入 内 存 一 次 。 

















全 





7、 使 用 load 函数 和 save 函数 比 MATLAB 文件 | 过 程 更 好 
恒 用 这 机 个 函数 ， 和 进行 更 局， 岗 疮 刀 片 更 红 。 


和 ， 避 免 大 型 后 台 处 理 
属 爷 在 MAILAB 中 送行 程序 时 ， 在 后 侣 进行 大 型 处 理 ， 这 ， 可 居 罗 MATLAB 守山 更 


过 CPU 时间， 
2.2 ”程序 运行 情况 监测 一 一 Profiler 


Pafiier 是 一 让 催 时 监测 程序 运行 状况 的 工 局 ， 它 告诉 你 M 文件 中 明 些 代码 行 最 花费 时 
间 ， 叫 些 行 秆 届 用 交 寥 数 最 事 ， 姑 后 ， 就 可 以 利用 上 面 界 昭 的 诅 法 对 这 些 代码 进行 改进 ， 从 
商 配 进 性 汀 程序 的 性 能 。 


22.1 Profiler 的 运行 环境 
在 “Star" 散 单 的 “MIATLAB"” 子 菜单 中 音 击 “Profler” 挝 项， 或 在 疝 村 窗口 中 人 遐 六 Profile 
jawerd 开 Profiter 界面 ， 关 本 了 1 疡 节 。 


本 1 
HE 全 朋 二 让 乓 遇 时 
让 二 二 二 而 赴  REG 全 有 | 





随 2 Erofiler 的 弄 面 


2.32 人 司 用 Profiler 
接 上 下 面 的 瞩 耶 监制 山 训 件 或 代码 行 : 
1 在 Rontihigeode ”文本 框 中 输入 如 望 运行 的 语句 例 铝 ， 
[yjade230TotkatO 下 ,[220j) 
妃 果 运行 前 面 监理 过 的 鼻血 ， 和 如 图 二 2 所 示 ， 从 列表 框 中 选择 语句 并 龊 硅 第 3 和 些 ， 





立 33 从 下 拉 式 则 雪 惜 中 选 邱 语句 


127 划 击 ”Starr Profiling” 按钮， 或 在 输 尖 语句 以 后 按 回 车 性 。 
当 Profiler 运行 时 ，Profiler 密 口 在 上 和 角 的 “Profile time:” 指示 器 为 绿色 ， 种 数 增 加 。 监 


测 完 成 以 后 ,， “Profils tme ”指示 器 变 成 时 色 ， 并 显示 Profiler 迅 行 的 时 间 长 度 ， 注 意 ， 这 
丰 是 语句 运行 的 真实 时 间 ， 而 旦 单 击 “Siart Prafiltag” 持 伺 划 单 击 “Sop Profilhig” 之 癌 的 
时 间 。 

3 卜 油 完 磺 庆 后 “PrafleSumav 代表 出 现在 Pafler 窗 听 中 ， 


2.2.3 监测 图 形 用 户 界 面 的 运行 情况 


可 以 监 副 圈 形 用 户 界 面 的 运 季 情况 ， 包 揪 已 有 的 图 于 财 户 界 面 和 自已 刷 计 的 圈 弄 用 户 界 
面 。 监 涧 图形 用 户 界 耐 技 照 下 面 的 步骤 进行 

[2 在 Profler 市 划 十 “Sarr ErofiiinE” 控 独 。 

fa 局 动 图 弄 用 户 界面 ， 如 果 竹 类 在 Fafiler 中 全 亩 启动 过 程 ， 筷 动 图 稍 因 面世 后 不 要 音 
面 “Srar Profiline” 按 村 |， 

131 麻 Ecofler 中 单 击 “SP Profling” 技 手 ， 显 示 “Profiie Sumnmay* 报表 ， 如 图 三 3 
所 示 ， 





2.2.4 从 谷 夫 窗口 监测 语句 
接 马 下 面 的 步骤 从 北 专 窗口 中 旋 册 语 句 ; 
f5 在 eg 中 ， 请 阶 “Ron 而 iode” 立夫 框 中 的 具 村 并 单 击 “San ofilinzg” 接 本 
【21 在 雍和 地 窗口 遇 ， 输 六 间 运 行 要 临 油 的 语 覃 ， 
131 运行 所 有 语句 以 后 , 在 Profiler 中 击 “Stop Profiling* 接 钉 ， 好 示 “Profle Samtmary” 
报 填 ， 


2.25 监测 综述 报表 


“Prmofile Summary” 报 表 提 供 了 运行 误 件 的 时 间 利 调用 颇 率 。 注 意 ， 运 行 时 间 秒 连 蠕 的 六 
件 ， 其 总 的 时 间 为 几 

从 综述 报表 中 找到 需要 改进 速度 的 秀 数 ， 这 些 函 数 所 花费 的 时 间或 调用 次 数 比 园 名 ， 对 于 
这 些 函数 ， 在 “Funetion Name” 一 询 中 单 击落 数 名 ， 和 将 显示 一 个 剧 细 的 报表 ， 如 图 2 本 所 示 。 


二 本 放生 
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型 是 
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图 324 临 番 评 情 莉 机 


2.2.6 监测 详细 报表 


昨 秋 详细 报表 显示 了 在 监测 过 程 中 被 调用 的 文件 的 监测 是 果 。 有 3 个 基本 部 耸 可 以 性 用 。， 

秽 上 部 分 提供 了 文件 名 。 到 立 件 的 一 个 古 接 以 及 一 个 特 报表 复制 到 单 晶 窗口 的 链接 ， 复 
制 报表 以 后 ， 可 以 改变 文件 ， 为 更 新 的 误 件 运行 mofilert， 间 比较 两 议和 运行 的 监测 详细 根 表 ， 

入 工 部 共 提 供 了 包括 父 函 数 ， 检 费时 间 最 事 的 语句 行 ， 被 子 函数 调用 的 语句 行 的 信息 的 
巡 玉 列表，M-Lint 结果 和 文件 总 信息 。 

在 图 24 所 示 的 详细 报表 中 ，“ Lines where the most lime was opent” 项 目 显 示 文 件 
=ode23 吕 "运行 时 花费 时 间 最 吉 的 代码 行 的 列表 。 其 中 列 出 了 装 费 时 间 最 地 的 代码 行 的 行 号 
代码 。 调 用 次 数 。 花 费时 间 ， 时 间 下 分 数 和 根据 时 间 花 担 得 到 的 水 平 条 邢 图 ， 

箭 3 部 分 列 出 立 件 ， 井 允许 亮 显 在 其 他 选 顺 中 化 费时 间 最 多 的 行 ,文件 剂 表 如 疼 芋 5 所 示 ， 













站- 本 bai 下 
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[日 1 
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0 而 上 二 放生 三 昌 去， 二 上 四 各 En 相 。 6 
证 辣 让 二 下 所 


围 25 玄 件 列表 


可 以 从 训 忻 列表 牛 提 服 的 信息 包括 行 的 疗 色 。 阐 色 亮 量 和 时 间 。 灵 调用 和 山 速 的 行 。 
【ii 民 三 行 的 季 色 
作画 行 的 瑞 色 有 布 同 的 志 况 ， 且 全 内 容 徊 麦 24 所 示 ， 


于 了 岂 皇 


囊 2.4 代码 行 的 颜色 

本 工 了 了 本 
Ta me | 
| 雪 让 Tealiaidlesaed | 二 和 的 村 
| | | 和 的 KW 和 | 

根据 行 的 病 色 可 以 看 出 代码 行 的 实际 运行 因 坊 。 这 不仅 对 于 Piofile M 文件 有 阁 ， 还 可 忆 
调试 或 查看 碍 嘉 者 师 何 工作 

(21 商 色 亮 吕 

在 “Calortighlighteodeueeordingi” 下 近 式 列表 框 中 单 击 亮 显 类 型 以 屋 变 外 看， 本 例 中 
选择 “Time“， 嬉 果 旭 图 了 6 所 示 : 














nm 


图 36 选 皇 “Time” ”选项 以 后 的 代码 季 显 示 
表 2 对 布 同 喜 显 类 型 与 代码 行 颜 色 的 英 系 给 出 了 示例 和 详细 描述 。 


惠 25 喜 甬 大 型 与 全 西行 对 色 的 藉 


疗 展 吓 

羡 蚊 色 为 慷 棋 色 的 季 旗 用 上 时间 最 因 其中， 比较 攻 的 概 虐 色 圭 席 的 
| 后 利 历 的 村 闻 量 村 ， 妆 本 相公 射 遍 区 行 贞 阳 前 时 便服 册 

单 击 丰 本 在 点 六 为 师 轴 中 打开 权证 候 

单 击 贤 了 下 基 峡 的 函 秀 得 看 它 的 临 出 评 钱 机 机 

厅 三 时 色 竹 面 名 时 瑚 用 惧 凡 最 事 ,在 责 血 朵 腿 的 行 中 , 醒 十 色 对 历 

后 的 输 博 用 该 酶 最 密 ， 塘 划 色 生男 用 放 殴 量 由 ， 硬 役 局 周 量 但 让 率 

| 罚 量 在 时 正在 过 行 ， 介 下 在 调 阳 明生 第 的 行 中 
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对 于 M 文件 的 每 一 行 ， 有 3 列 信息 ， 即 时 间 、 调 用 放 数 和 代码 。 
2.2.7 利用 Profiler 报表 中 的 信息 


1 改进 运行 的 处 理 

利用 Profiler 生成 的 报表 ， 可 以 改进 M 文件 的 运行 ， 其 方法 如 下 。 

(1)》 在 监测 综述 报表 中 查找 用 时 最 多 或 调用 最 频繁 的 函数 。 

2) 察看 那些 函数 的 详细 报表 并 查找 用 时 最 多 或 调用 最 质 繁 的 行 。 

3) 确定 是 否 能 对 这 些 行 基 些 改变 ， 以 改善 和 运行。 例如， 循环 中 有 一 个 load 语 负 ， 每 次 
调用 循环 时 load 函数 都 被 调用 。 为 了 节省 时 间 ， 可 以 把 load 语句 移 到 循环 的 前 面 ， 这 样 只 需 
要 调用 一 次 就 行 了 。 

(47 单 击 至 文件 的 链接 ， 进 行 改进 ， 保 存 文件 并 运行 “clear al”。 重 新 运行 Pofiler 并 将 
绪 果 与 开始 的 报表 进行 对 比 。 

《5) 重复 此 过 程 ， 继 续 改 进 代 码 的 运行 效率 。 

2， 使 用 Profiler 进行 油 试 

Profiler 也 可 以 用 于 查找 M 文件 中 的 问题 。 例如， 文件 中 的 一 个 特定 部 分 没有 运行 ， 可 以 
通过 在 详细 报表 中 查找 来 发 现 哪些 行 在 运行 ， 哪 些 行 没有 运行 ， 从 而 发 现 出 问题 的 点 。 同 样 ， 
可 以 使 用 “CHC” 键 来 停止 运行 ， 这 在 文件 的 运行 时 间 比 预期 的 长 得 多 时 很 有 用 。 

3. 使 用 Profller 理解 文件 


对 于 很 长 的 不 是 自己 创建 的 M 文件 ， 或 者 其 他 不 缉 悉 的 M 文件 ， 可 以 使 用 Prefiler 查看 
M 文件 是 如 何 工作 的 。 用 Profiler 详细 报表 查看 各 行 的 实际 调用 情况 。 


2.2.8 ”改变 Profiler 的 字体 


要 改变 Profiler 用 到 的 字体 ， 禄 照 以 下 的 步骤 进行 。 

《1) 选择 File 一 Preferences 一 Help 一 Fonts， 打 开 “Preferences” 对 话 框 。 

(2) 在 该 对 话 框 中 选择 “Font” 项 ， 设 置 字体 并 单 击 “Apply” 接 钮 或 “OK” 按 钮 。 
(G3) 在 Profiler 中 ， 单 击 灶 按钮 ， 更 新 显示 。 


2.3 使 用 profile 函数 


Profiler 的 运行 是 基于 profile 函数 返回 的 结果 的 ， 但 有 一 些 profile 函数 具有 的 特点 在 
Profiler 中 并 滩 有 。 


2.3.1 profile 函数 的 语法 和 使 用 步 灶 ， 


按照 下 面 的 步骤 使 用 profile 函数 。 

(1) 在 命令 窗口 中 键入 profle， 指 定 任 何 想 使 用 的 选项 ， 

2) 运行 M 文件 ，profile 函数 计算 M 文件 的 每 -行使 用 多 少时 间 ， 它 是 累加 运行 的 。 

表 2-6 是 一 个 Profile 主 窗口 的 综述 表 。 键入 doc profile， 可 以 查看 这 些 选 项 以 及 其 他 选项 
的 细节 。 


= 才 口 < 


表 2.6 Profile 主 窗口 的 综述 表 


描 述 





启动 Ptofile， 清 除 前 面 记 录 的 统计 





指定 要 Profiie 的 函数 的 等 级 








指定 函数 调用 的 确切 次 序 














proHhle res 


profile clear 


取消 Pofie 
在 不 清除 前 面 记 录 的 情况 下 重新 局 动 mrofile 
清除 监测 记录 的 统计 傅 息 











Taofile Y 这 WW 寺 


打开 Profifet 的 图 形 用 户 界 面 . 这 将 查 供用 Frofis 函数 集中 的 倩 息 ， 
但 格式 与 Prefiie 函数 报表 的 不 同 








s=profilet'statns 》 


ET 
2.3.2 profile 函数 使 用 演示 


显示 一 个 包 售 当 前 监 刹 状态 的 结构 
下 缓 监测 并 显示 一 个 包 人 监 抽 结 果 的 结构 








下 面 举 ~ 个 例子 演示 如 何 利 用 frofile 函数 进行 运行 。 


1. 启动 Profile 
在 命令 窗口 中 健 入 ， 


Profile on 


2. 运行 M 文件 





本 例 运行 Lotka-Velterra 猎手 - 猎物 人 口 模型 。 
[ty] = ode23(1otka',[0 2].[20:20]; 


3. 生成 报表 并 显示 


生成 蓝 测 报表 并 把 结果 显示 到 Profiler 窗口 。 


Profile viewWer 


4， 重 新 启动 Profile 


profile 函数 现在 准备 为 所 运行 的 更 多 M 文件 继续 搜集 统 计 信 息 。 


profile resume 


5， 终 止 Profile 
Profile o 任 


下 面 查 看 监测 的 结果 。 有 两 种 察看 监测 结果 的 方式 ， 即 察看 监测 报表 和 攻 测 图 ， 


6， 查看 监测 报表 

要 显示 监测 结果 ， 键 入 : 
P=profilefinfo) 
了 = 


FunctionTable: [23x1 struct] 
FuncttoaHistory: [2x0 double] 
ClockPrecjsion: 2.7322e-007 


ClockSpeed: 366 


Name: "MATLAB， 


= 填 j] 





7. 保存 报表 
用 profsave 函数 保存 报表 。 该 函数 为 结构 FunetionTable 字段 列 出 的 每 个 函数 将 profile 
信息 保存 在 单 狂 的 HTML 文件 中 。 


profsavelP) 
默认 时 ， 人 保存 结果 放 在 当前 目录 下 名 为 ptofile_results 的 子 目 录 中 。 


2.3.3 对 结果 进行 访问 
监测 结果 保存 在 一 个 可 以 察看 或 获取 的 结 枸 中， 本 例 演 示 如 何 察看 结果 。 


1， 和 运行 Profile 

在 命令 窗口 键入 下 和 面 的 命令 行 ， 
profile or -detail builtin -history 
[by] = ode23flotka [0 21.[20;20])， 


2， 查 看 包含 profile 结果 的 结构 
在 命令 行 键入 : 
stats = preofilefinfo') 
MATLAB 返回 
&tats 一 
PunctionmTIahle; [61xl struc 寺 
FunectionHistory: [2x7316 doublel 
ClockPrecision': 2,.7322e-007 
ClockSpeed: 366 
ame: MATIAEB， 


3， 罕 看 和 获取 娃 构 的 内 容 
在 命令 窗口 键入 
stats.FunctionTable 
MATLAB 显示 FunctionTable 结构 
arlk 一 
丰 1X1T Stmct drTay With 世 elds: 
CoirtpleteMame 
FunctionMNarme 
FileName 
Type 
NuamcCalls 
TotalTime 
TotalRecursiveTitpe 
Children 
Parents 
ExecutedLines 
了 Reetirsjve 
ApeelerRIOTKMIeSSaEES 


4 查看 FunctionTable 结构 中 一 个 元 素 的 内 容 
在 命令 行 键 入 : 


上 2 





stats.FunctionIablef2) 
MATILAB 返回 结构 中 的 第 2 个 元 素 。 
an5 = 
CompleteName: DAMATLAB79lbinvwin32Wm interpreter'dj]>borzcat' 
FunetionNarne: hhorzcat' 
FileName: DANMATLAB70lbinvwin32wm_interpreter.dl 
Type: Builtn-fnction 
Mumealls: 5 
TotalTime: 中 
TotalReeursiveTirne: 0 
Chikiren: [Oxl strmuct] 
Parcnts: [2x1 stmect] 
ExecutedLines' J0x4 double] 
JsRecursive: 
航 CCeleratorMessages: {]xOCel} 


5.， 保存 结果 
用 save 命令 保 和 存 结果 ， 即 
Save Ptofstats 


6， 用 保存 好 的 结果 生成 一 个 Profile 报表 
在 命令 行 键入 ; 

load profstats 

Profreport(stats) 
MATLAB 显示 Profile 报表 。 


2.4 有 效 使 用 内 存 


2.4.1 内 存 管理 函数 


使 用 下 面 这 些 函 数 ， 可 以 帮助 你 在 MAITLAB 中 管理 内 存 。 

41》 whos 函数 ， 显 示 给 工作 空间 中 的 变量 分 配 了 多少 内 存 。 

(2) pack 数 ;把 已 经 存在 的 变量 保存 到 磁盘 ， 然 后 重新 装 入 ， 这 将 减少 因为 内 存 碎片 
出 问题 的 机 会 ， 

参见 下 一 小 节 中 “把 数据 压 入 内 存 ” 的 内 容 。 

《3) clear 函数 ， 从 内 存 中 删除 变 基 ， 增 加 可 用 内 存 的 一 种 方法 是 周期 性 地 把 不 再 使 用 的 
变量 从 内 存 中 清除 出 去 ， 

(4) Save 函数 : 有 选择 地 把 变量 保 人 存 到 磁盘 。 使 用 大 量 数据 时 ， 这 是 一 个 有 用 的 技巧 。 

《5) load 冰 数 ， 把 已 保存 的 数据 文件 用 save 函数 重新 载 入 。 

(6) quit 函数 : 退出 MATLAB 并 返回 所 有 分 配 的 内 存 到 系统 中 。 


2.4.2 ”节约 内 存 的 方法 
本 节 介 绍 帮 助 你 更 节约 地 使 用 内 存 ， 并 避免 “Out of Memory ”错误 出 现 的 方法 ， 


时 


1， 使 用 变量 

为 了 在 创建 变量 时 节约 内 存 ， 注 意 : 

s 避免 创建 大 型 临时 性 变量 ， 不 青 需要 时 清除 它们 ; 

e 使 用 固定 大 小 的 数组 时 ， 尽 量 进行 预 分 配 ， 

s 将 变量 设置 为 空 抢 阵 []， 将 它 从 内 存 中 清除 ， 或 用 clear 函数 清除 变量 ; 
s 尽量 重用 变量 。 


2， 殷 数据 压 入 内 存 
因为 MATLARBR 用 堆 管 理 内 存 , 所 以 运行 时 会 产生 内 存 碎 片 , 使 内 存 产 生 报 多 闲置 的 空间 。 
二 则 杰 多 时 ， 就 没有 足够 的 内 存 保 存 新 的 大 型 变量 ， 并 导致 “Dut of memory” 错 误 产 
生 。 此 时 ， 可 以 用 pack 函数 把 数据 压 和 内存， 从 而 把 更 多 相 邻 的 内 存 块 “ 释 放 ” 出 来 。 
注意 : 从 运行 时 间 上 考虑 ， 不 要 在 循环 或 M 文件 通 教 中 使 用 pack 函数 ， 


3， 从 内 存 中 清除 不 再 使 用 的 变量 
如 果 使 用 paek 函数 以 后 ， 内 存 仍然 不 够 ， 可 能 需要 从 内 存 中 删除 一 些 不 再 使 用 的 变量 。 


4 有 大 量 数据 的 情况 
如 果 程 序 生成 大 量 数据 ， 建 议 周期 性 地 把 数据 写 入 磁盘 。 保 存 一 部 分 数据 以 后 ， 从 内 存 
中 清除 变量 并 继续 生成 数据 。 


5， 把 满 秩 矩 阵 转换 为 稀 朴 矩阵 

大 部 分 元 素 为 0 的 扎 阵 最 好 保存 为 稀 芯 和 矩阵。 稀疏 矩阵 使 用 的 内 存 更 少 ， 并 且 比 满 秩 矩 
阵 运 行 更 眉 ， 可 用 sparse 函数 进行 转换 。 

比较 两 个 1000Xx 1000 的 矩阵 X 和 站 。 其 中 ，X 为 double 型 ， 其 中 264 的 元 素 等 于 0; 下 
为 冬 的 稀 朴 矩阵 有 形式， 如 下 所 示 。Y 所 占用 的 内 存 大 约 只 有 和 的 一 半 。 


WwWhes 








Name Si2e Bytes  Class 
孔 1000xlo00 3000000 gouble array 
开 1000x1000 4004000 douple array fsparse) 


8、 单元 数组 的 内 存 需 求 
整个 的 单元 数组 或 结构 数组 ， 并 不 需要 连续 的 内 存 。 因 为 它们 实际 上 是 一 个 指向 其 他 数 
组 的 指针 数组 ， 要 求 每 个 数组 的 内 存 是 连续 的 ， 但 整个 内 存 集合 则 不 要 求 。 


7 了 7. 比较 数组 结构 和 结构 数组 

如 果 MAITLAB 应 用 程序 需要 保存 一 大 套数 据 ， 并 且 数 据 可 以 保存 为 数组 结构 或 结构 数 
组 ， 但 前 者 更 好 。 对 于 间 一 套数 据 ， 数 组 结构 需要 的 内 存 比 结构 数组 少 得 多 ， 并 且 处 理 起来 
速度 也 更 快 。 


8 做 套 函 数 调用 
嵌 套 函数 使 用 的 内 存 与 连续 行 方式 调用 它们 时 所 占用 的 内 存 相同 。 如 下 面 两 个 例子 需要 
相同 大 小 的 内 富 。 
Iesult = funetton2ffnetion 1finputg9)y》; 
Tesult = frmctiorlfinputoegh， 
result = funcetion2tresulf); 











第 3 章 编 译 器 


编译 是 MATLAB 的 主要 难题 之 一 ， 一 直 都 不 顺 牙 。MATLAB 7.0 使 用 新 的 编译 器 4.0， 
提供 了 多 种 新 的 编译 特性 ， 弥 补 了 原 有 编译 器 的 一 些 缺 点 ， 在 漫长 的 编译 之 路 上 前 进 了 一 步 。 


3.1 概述 


MATLAB 编译 器 40 可 以 用 M 文件 等 生成 可 重复 分 发 的 独立 应 用 程序 或 组 件 ， 它 支持 面 
向 对 象 编程 时 创建 的 类 对 象 尖 型 。 


3.1.1 MATLAR 编译 器 4.0 和 以 前 版 本 的 区 别 


编译 器 4.0 是 创建 可 分 发 给 其 他 用 户 的 部 件 的 部 署 工具 。 这 个 版 本 的 MATLAB 编译 器 完 
全 支持 MATLAB 语言 的 所 有 特性 ， 包 括 面向 对 象 编 程 定义 的 对 象 。 

sa 编译 器 4.0 用 新 的 MAILAB 组 件 运 行 时 (Component Runtime, MCR 代替 了 MATILAB 
CAC++ 数 学 和 图 形 库 。MCR 是 共享 库 组 成 的 独立 集 台 ， 这 些 共享 库 使 得 可 以 执行 MATLAB 
编译 器 创建 的 加 密 M 文件 。 

s 编译 器 4.0 只 生成 接口 函数 (打包 器 ) 的 代码 ， 而 以 前 版 本 的 编译 器 生成 理 个 M 文件 
的 代码 。 
编译 器 4.0 取 消 了 某 些 与 代码 生成 和 格式 化 有 关 的 选项 ， 
编译 器 40 取消 了 某 些 打包 器 选项 和 与 它们 有 关 的 束 文 件 。 
只 有 Microsoft Windows 和 Linux 平台 支持 编译 器 4.0。 
编译 器 40 包含 了 几 个 新 的 选项 。 
编译 器 4.0 不 包含 MATLAB 对 Visual Studio 的 插件 (Ada-in) 功能 。 

e 编译 器 4.0 不 加速 程序 ， 编 谋 后 的 应 用 程序 与 在 MAILAB 上 运行 没有 速度 上 的 差异 。 
编译 后 的 应 用 程序 运行 时 将 会 像 有 JIT 加 速 器 时 一 样 快 。 

e 编译 器 40 不 支持 源 于 M 函数 的 MEX 文件 和 Simulink 8 函数 的 编译 ， 因 为 MATLAB 
7 的 特性 使 得 这 项 芒 能 多 余 。MATLAB JITT 加 速 器 使 得 编译 时 不 必 考 虑 速度 问题 ， 并 且 使 用 
MAILAB 的 pcode 函数 可 以 隐藏 自己 的 算法 。 

sa MATLAB 不 支持 通过 loadlibrary 函数 载 入 MATLAB 编译 器 生成 的 库 的 功能 ， 


1 打包 器 编码 差异 

打包 器 或 打包 器 文件 包含 了 MATLAB 编译 器 生成 的 代码 与 支持 的 部 件 类 型 , 如 独立 应 用 
程序 或 共享 库 等 之 间 的 必要 接口 。 编 译 器 4.0 只 生成 接口 函数 的 代码 ， 而 以 前 版 本 的 编译 器 会 
生成 整个 M 文件 的 代码 。 从 R 或 C++ 函数 中 调用 编译 器 40 生成 的 函数 时 有 下 面 儿 个 需要 注 
意 的 差异 ; 

s 因为 编译 岩 4.0 不 司 用 MATLAB CAC+H+ 数 学 和 图 形 库 , 所 以 现在 得 不 到 一 系列 mif 函数。 

s 现在 initialize 函数 会 返回 一 个 状态 标记 ， 它 可 以 测试 库 是 宫 进 行 了 正确 初始 化 。 





避让 


e 二 全。 








在 这 个 版 本 的 编译 器 中 ， 用 M 文件 函数 生成 的 mlf 函数 的 接口 发 生 了 改变 。 与 以 前 各 版 
本 的 MATILASB 编译 器 不 同 ， 现 在 所 有 返回 值 都 作为 输入 参数 传递 给 该 冰 数 , 这 些 函 数 的 返回 
值 为 void。 输出 的 mlf 函数 的 一 般 形 式 为 ， 

对 于 没有 返回 值 的 M 函数 

void mlf<function-name>(<list_ of _ input varniables>); 

对 于 至 少 有 一 个 返回 值 的 M 函数 

voidinlf<function-name>(<int number of_ return_values>， 
<list_of pointer_to_Terurn_ Variables>， 
<Iist_of input_ varniables>); 

注意 : 这 些 打 包 器 文件 的 差异 只 影响 生成 库 的 用 户 ， 对 于 生成 独立 应 用 的 用 户 没有 影响 ， 

2， 取消 的 编译 选项 

编译 器 40 比 以 前 的 版 本 更 容易 使 用 ,而且 是 一 个 更 有 力 的 工具 。 以 前 版 本 中 的 某 些 选项 
更 在 不 必要 了 ， 为 了 简化 编译 器 ， 编 译 器 4.0 取消 了 这 些 选项 ， 如 表 3-1 所 示 。 


表 3-1 编译 器 4.0 取消 的 选项 


































品 忧 化 后 的 代码 
PP | 晤 cn 更 
二 
将 M 代码 转换 为 CAC++ 代 色 
| 者 呈 的 MX 人 | | 指 呀 Simulnks 范 内 和 参数 的 个 数 
| | 入 人 坟 号 ( 访 沾 在 表 站 ty 床 ) | xx | 和 成 MEX 琐 二 
RN 六 | ， | 间 汪 Simulinks 函 雪 的 四 出 数 的 人 数 | 





3， 取 消 的 打包 器 选项 
表 32 中 的 打包 器 选项 和 与 它们 相关 的 东 文 件 已 经 取消 ， 其 功能 已 经 被 新 选项 蔡 代 。 


囊 3-2 取消 的 打包 器 选项 及 其 替代 选项 


打包 器 选项 训 广 忻 用 下 曾 的 选项 替代 




























防 cggleom 召 ceom 
阳 csglexcel 也 cxeel 
B csglshatedlib Besharncdlib 





注意 : 现在 不 再 需要 用 -B sg| 和 -B sg|cpp 来 获取 句柄 图 形 函 数 了 ， 默 认 时 所 有 经 过 编译 
的 应 用 程序 都 有 权 使 用 图 形 。 


4 新 的 编译 怖 选 项 
表 3-3 列 出 了 编译 器 4.0 中 的 新 选项 。 


= 村 和 > 





表 3-3 缩 译 器 4.0 的 新 选项 

EN 
将 ename 文件 添加 到 CTF 文档 
| | 生 碱 数 库 的 案 
























消除 必需 的 最 小 目录 浊 以 外 的 所 有 路 径 
将 direetory 引 录 按照 次 序 芍 语 上 下 文 添加 到 编译 路 径 ， 需 要 _IN 选项 


民 _ngi 
及 一 nejitt 


# 添加 文件 到 CTF 文档 : 使 用 -a 选项 指定 直接 添加 到 CTF 文档 的 文件 。 编 译 器 在 
MATLAB 路 径 上 查找 这 些 文 件 ， 所 以 指定 完整 路 径 名 是 梧 选 的 。 这 些 文件 不 传递 给 Inbuild， 
所 以 可 以 包含 数据 文件 之 类 的 文件 。 例 如 ， 

Imec 一 m foo.m -a data.mat -adocsjhelp.txt 

可 以 使 用 多 个 -a 选项 ,但 是 每 个 的 后 面 必 须 跟 要 添加 到 CTF 文档 的 文件 的 名 称 。 可 以 将 
-aa 选项 添加 到 mcec 命令 行 的 任何 地 方 。 出 现在 mee 命令 行 的 .c，,cpp 或 .obj 等 不 是 MATLAB 
文件 的 文件 直接 传递 给 mbuild， 

# 生成 库 ， 使 用 -| 宏 生 成 函数 库 。 开 选项 等 价 于 ， 

-内 lb -Tlink:lib 

它 为 命令 行 的 每 个 M 文件 生成 库 打 包 器 函数 ， 并 调用 C 编译 器 生成 共享 库 ， 该 共享 库 输 
出 这 些 函 数 。 库 名 与 组 件 各 相同 ， 也 就 是 命令 行 中 第 一 个 M 文件 的 名 称 ， 

# 清除 最 小 目录 集 以 外 的 路 径 ， 使 用 -N 选项 清除 下 面 必 要 路 季 以 外 的 所 有 路 径 。 

<imatlabroot>vtootboxwmnatlab 
<inatlabroot>toolboxocal 
<Iimatlabroot>toolboxwompiler 

该 选项 还 保留 上 面 列表 中 编译 时 出 现在 MATLAEB 路 径 中 的 目录 的 子 目 录 . 在 mee 命令 行 
包含 -N 选项 ， 使 得 可 以 替换 原始 路 径 ， 但 保留 所 包含 的 目录 的 相对 顺序 。 另 外 还 包含 出 现在 
蛛 始 路 径 中 的 所 包 售 的 目录 的 所 有 子 目 录 。 

s 问 编 译 路 径 添 加 目录 : 使 用 -P 选项 按照 次 序 敏 感 上 下 文 向 编译 路 径 添 加 目录 。 语 法 格 
式 为 





P <directory> 


其 中 ，<directory> 为 村 和 包 售 的 目录 。 如 时 <direetory> 不 是 作为 绝对 路 径 传 递 ， 则 假设 位 于 
当前 工作 目录 下 。 


se 运行 时 : 使 用 -R 选项 覆 羡 MCR 运行 时 选项 。 可 以 覆盖 表 3-4 中 的 任何 运行 时 选项 。 
默认 时 这 些 选 项 的 值 为 on。 
表 3-4 运行 时 选项 
| mait | 不 使 用 JI 加速 器 (用 于 加 速 M 文件 执行 速度 的 一 进 制 代码 生成) | 
下 面 是 -R 选项 的 合法 用 尘 : 


mcc -im 一 R 一 nojvn <args> 一 nojit <args>”--Y fpo.m 
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nice -Im 一 R -nojym <argsS> ”一 V 一 R 一 nojit <args>” foo. 
Icec -ml 一 R -nojvm -R -nojit foo.m 
Imecec -mm -R -nojvm -vy foo.m 
Ice -mL -有 noivm -Rnoiit foo.m 
下 面 的 儿 法 是 非法 的 ; 
mec -m -有 -nojvm -nojit foo.m 
Imec -Ia -R -nojvrm <args> -R -nojit <args> foo.m 


3.12 MATLABH 编译 器 的 基本 功能 
MATLAB 编译 器 可 以 生成 独立 应 用 程序 、 库 、COM 对 象 和 Bxcel 插件 。 


1， 打 包 器 文件 

MAITLAB 编译 器 《mec) 根据 M 文件 生成 可 以 分 发 的 独立 应 用 程序 或 软件 组 件 。 最 终生 
成 的 结果 可 碎 是 独立 应 用 的 库 或 组 件 中 的 任何 一 种 类型 。 编 译 器 根据 最 后 要 生成 的 目标 类 型 
生成 台 通 的 打包 器 文件 。 打包 器 文件 包含 痪 译 后 的 应 用 程序 和 所 支持 的 可 执行 对 象 类 型 之 间 
的 接口 。 

打包 器 文件 根据 执行 环境 的 不 同 而 有 所 不 同 ， 为 了 提供 必要 的 接口 ， 打 包 器 具有 下 面 一 
些 功 能 : 

se 完成 打包 器 指定 的 初始 化 和 终止 运行 工作 : 

e 定义 包含 路 径 信息 、 加 密 密 是 和 MATLAB 组 件 运行 时 5(MCR ) 所 需要 的 其 他 信息 的 数组 ; 

e 提供 传递 接口 函数 调用 MCR 中 MAILAB 函数 时 的 必要 代码 。 

例如 ， 打 包 器 是 一 个 包含 main 函数 的 独立 应 用 。 库 的 打包 器 包含 每 个 公共 M 文件 函数 
的 六 口 点。 

MAILAB 编译 器 生成 的 组 件 技术 文件 《CTE》 与 最 后 生成 的 目标 类 型 (可 执行 程序 或 库 ) 
是 独立 的 。 打 包 器 文件 会 提供 与 目标 类 型 之 间 的 必要 接口 。 


2. 独立 应 用 
用 -选项 调用 时 ，MATLAB 编译 器 使 用 输入 的 M 文件 ， 生 成 适合 于 独立 应 用 的 必要 的 
打包 器 文件 ， 然 后 ，C 或 C++ 编译 器 编译 该 代码 并 连接 MCR。 例 如 ， 下 面 的 代码 生成 文件 
example.m 的 独立 可 执行 文件 
Incc -mm example 


3 库 
可 以 用 -1 选项 根据 M 文件 集 生 成 C 共享 库 。 例 如 ， 
mecc 二 在 ljel1.m fle2m le3.D 
用 filelm'file2m 和 fle3.m 生成 一 个 共享 库 。-] 选项 是 一 个 打包 选项 ， 可 以 扩展 为 
-ib-Tlink:lib 
-ww 了 选项 让 MATYLAB 编译 器 为 共享 库 生 成 一 个 函数 打包 器 , 并 调用 它 Jlibfilel。-Tlink'lib 
选项 把 目标 输出 指定 为 共享 库 。 


4，COM 生成 器 和 Excel 生成 器 
使 用 可 选 的 MAILAB COM 生成 器 , 可 以 创建 COM 组 件 。 该 组 件 可 以 用 于 任何 操作 COM 





+ 七 入 。 


对 银 的 应 用 程序 MAILAB COM 生成 器 用 编译 器 根据 M 文件 创建 组 件 对 象 模 型 (COM )， 
M 文件 集合 被 转换 为 COM 类 。COM 生成 器 支持 一 个 组 件 中 有 歼 个 类 的 情况 。 
利用 可 选 的 Exeel 生成 器 ， 可 以 自动 生成 丰 sual Basic 应 用 文件 〈《.bas》 和 插件 DEL。 可 
以 在 Excel 中 直接 使 用 .bas 文件 和 导入 插件 .MATLAB Exeel 生成 器 将 MATLAB M 文件 编译 
为 可 以 用 作 Excel 插件 的 COM 对 象 , M 文件 集合 被 转换 为 单个 的 Excel 董 件 . MATLAB Excel 
生成 器 支持 一 个 组 件 中 有 一 个 类 。 


3.1.3 使 用 MATLAR 编译 损 的 基本 步骤 


下 面 介绍 使 用 MATLAHB 编译 器 用 M 文件 创建 部 件 〈 应 用 程序 和 库 ) 的 基本 步骤 。 然 后 
这 些 部 件 可 以 分 发 到 那些 没有 安装 MATILAB 的 机 器 上 。 


1. 编译 独立 应 用 程序 
用 M 文件 mymfunetion 创建 独立 应 用 程序 ， 使 用 下 面 的 命令 
Incc -minymfunction.imn 


创建 一 个 名 为 mymfunction.exe 的 独立 可 执行 程序 。 


2.， 编译 共享 库 
用 M 文件 mymfunction 创建 共享 库 ， 便 用 下 面 的 偷 念 
mec -~] mymfunetion.m 


创建 一 个 名 为 mymfunction dll 的 共享 库 。 


3.， 调用 库 的 独立 应 用 程序 
假设 名 为 mywrappercode 的 打包 器 文件 调用 上 面 的 库 mymfnnetion,， 现在 用 该 打包 器 文件 
创建 独立 《驱动 ) 程序 ， 使 用 下 面 的 命令 
mbuild mywrapbetcode.c mymfunetion.lib 


4， 在 开发 机 器 上 测试 部 件 
在 开发 机 器 上 测试 部 件 ， 必 须 保证 动态 链接 库 设 置 正确 。 首 先 添加 下 面 的 目录 到 动态 链 
接 库 路 径 中 。 
<matiabroot>vbinvwin32 


然后 可 以 在 开发 机 器 上 运行 编译 后 的 应 用 程序 ， 进 行 测试 。 


5， 拒 部 件 部 获 到 其 他 机 器 上 

将 部 件 部 署 到 没有 安装 相同 版 本 的 MATLAB 的 目标 机 器 上 , 需要 将 下 面 的 部 件 打包 并 注 
和 册 目 标 机 器 。 

es 部件 ， 即 独立 可 执行 程序 或 共享 库 。 

se 为 部 件 创 建 的 CTE 文档 (<component_narmme>,ct。 

s MICRInstallerexet 该 文件 位 于 <matlabroot>toolboxeompilerdeployvwwin32 目录 下 )。 

在 目标 机 器 上 完成 以 下 操作 ;， 

。 通过 运行 某 和 目录 下 的 MCR 安装 器 来 安装 MCR。 例 如 ， 运 行 CAMCR 目录 下 的 
MECRInstallerexe。 

。 将 部 件 和 CTF 文档 复制 到 应 用 程序 根 目录 ， 例 如 Capproot。 

se 将 下 面 的 目录 添加 到 系统 路 径 。 


+ 寺 9。 





<TnCE root>mntimevwin32 


e 测试 部 件 。 
3.1.4 MATLAB 编译 器 的 局 限 性 


1， 编 译 MATLAB 和 工具 第 

MATLAB 编译 器 支持 完整 的 MAILAB 语法 和 几乎 所 有 基于 MATLAB 的 工具 箱 。 但 是 ， 
有 些 MAITLAB 和 工具 逢 功能 不 能 编译 ， 包 括 : 

e 大 部 分 预 生成 的 图 形 用 户 界 面 及 相关 工具 箱 ; 

s 不 能 直接 从 命令 行 调用 的 通 数 ; 

s 有 些 工 具 箱 ， 例 如 符号 数学 工具 箱 。 


2 MATLAB 编码 

MATLAB 编译 器 支持 MAITLAB 的 绝 大 部 分 功能 ， 但 是 ， 有 一 些 局 限 性 需要 注意 。 编 译 
器 的 这 个 版 本 不 能 创建 脚本 式 M 文件 的 接口 。 

MATLAB 技术 支持 通过 互联 网 随时 发 布 新 版 本 的 M 文件 来 修改 程序 中 的 bug. 将 这 些 改 
变 集成 到 部 署 的 应 用 程序 中 ， 必 须 首 先 使 用 补丁 ， 然 后 重新 运行 buildmer 来 生成 最 新 的 
MCRInstaller 版 本 。 向 客户 部 署 bug 修复 工具 ， 必 须 与 新 应 用 程序 一 起 发 行 这 个 新 的 
MCRInstaller， 并 使 当前 客户 可 以 得 到 该 安装 器 ， 以 便 更 新 其 安装 。 


3. 独立 应 用 

前 面 提 到 的 限制 对 于 独立 应 用 来 说 也 适用 。 另 外 ， 有 一 些 函 数 不 支持 独立 模式 ， 主 要 有 
下 面 几 类 ， 

e# 打印 或 报告 MATLAB 通 数 代码 的 函数 ， 例 如 help 通 数 和 一 些 调试 函数 。 

se Sumulink 范 数 。 

es 需要 在 命令 行 过 行 的 冰 数 ， 例 如 jookieor 画 数 等 ， 

es clec、home 和 savepath 等 函数 部 署 以 后 不 再 有 效 。 

独立 应 用 成 功 运行 时 返回 值 为 0， 否则 返 町 值 为 非 0。 

另外 ， 由 于 授权 限制 ， 有 一 些 函 数 是 不 能 部 署 的 ， 如 表 3- 和 4 所 示 。 


表 3-5 不 支持 的 函数 
clese_system 
dbstatus dbstep 
delete line | echo 
get_pamm | hep home inmem 
| lnmod | mislocked | mlock more 
rehash stpam | sm |samgel | 
| ait jaug je 1 | | 


4 国定 回调 问题 ， 缺 失 函 数 

编译 器 创建 独立 应 用 时 ， 会 编译 命令 行 中 指定 的 M 文件 ， 另 外 ， 还 编译 该 M 文件 调用 
的 任何 其 他 M 文件 。 编 译 器 使 用 依赖 分 析 来 确定 指定 M 文件 、MEX 文件 和 了 P 文件 所 恢 茂 的 
艺 数 。 如 果 函 数 在 下 面 儿 个 位 置 调用 ， 依 赖 分 析 将 找 不 到 该 函数 。 

* 在 回调 字符 串 中 ， 


ha 人 = 































s。 在 作为 参数 传递 给 feval 函数 或 ODE 求解 器 的 字符 帅 中 。 

编译 器 不 会 在 这 些 文 本 字符 串 中 查找 函数 名 进行 编译 。 

出 现 这 种 问题 时 ， 程 序 可 以 运行 ， 但 图 形 界 面 上 的 某 些 元 素 ， 例 如 命令 按钮 ， 可 能 个 能 
工作 。 编 译 后 的 程序 发 出 下 面 的 出 错 消息 。 


上 An eror occurred in the callhack : change_colormap 
The ermror mesSage Caught was : Reference to unknowy fnnction 
change_colormab from FEVAL in stand-alonc Imode- 


要 清除 这 个 错误 ， 需 要 创建 一 个 只 在 回调 字符 串 中 指定 的 所 有 函数 组 成 的 列表 ， 并 用 单 
独 的 %#function 注 记 诸 名 传递 这 些 函 数 。 这 将 覆盖 编译 器 的 依赖 分 析 ， 并 使 它 可 以 显 式 地 包 
售 %#ifuanction 注 记 中 列 出 的 函数 。 

例如 ， 在 示例 程序 my_ test 中 调用 change_colormap 函 数 。 要 确保 编译 器 处 理 
change_colormap M 文件 ， 需 要 用 % 祖 unaction 注 记 语 句 列 出 函数 名 。 

fnction my_ test 

5 Graphics library callpack test application 

时 本 unetion chamge_colormtap 

Peaks; 

P_htn = UicomtrolEcei 
Style'，pushbutton 
Position ,[10 10 133 25 ]，.. 
String','Make Black 芭 White 
CallBack, change_colormap 

注意 :如果 不 使 用 %Hfianction 注 记 语 自 ， 可 以 在 编译 器 命令 行 中 用 -a 选项 指定 负 失 的 M 
文件 的 名 称 。 

那么 程序 中 的 哪些 函数 会 出 现在 %#function 注 记 语句 中 也 ? 需要 在 M 文件 的 源 代码 中 
进行 搜索 。 搜 索 那 些 作 为 回调 字符 串 或 feval、fminbnd、fminsearch、fnnm 和 人 ere 函数 或 任 
何 DDE 求解 回 的 参数 的 文本 字符 串 。 

查找 用 作 回 调 字符 串 的 文本 时 ， 在 M 文件 中 搜索 字符 "Callbask"“ 和 "fn"， 这 将 找到 句柄 
图 形 对 象 如 uicontrol 和 uimenu 等 定义 的 所 有 Callback 属性 。 另 外 ,将 找到 图 形 窗口 对 象 或 坐 
标 系 对 象 所 有 以 Fen 结尾 的 属性 ， 例 如 CloseRequestFcn 等 ， 它 同样 支持 回调 。 


3.1.5 ”关于 运行 时 服务 器 (Runtime Server) 


6.5 及 以 前 版 本 的 MATLAB 中 ， 除 了 提供 编译 器 外 ， 还 提供 了 运行 时 服务 器 进行 程序 编 
译 。 运 行 时 服务 器 的 使 用 比较 烦 融 ， 而 且 很 多 情况 下 不 太 顺丰。 在 MATLAB 7.0 中 ， 运 行 时 
服务 器 的 大 部 分 功能 集成 到 编译 回 4.0 中 去 了 , 所 以 Mathworks 公司 不 再 把 它 作为 单独 的 产品 
进行 提供 。 








3.2 ”安装 和 注册 


本 章 介 绍 MAILAHE 编译 器 的 系统 需求 ， 以 及 安装 和 注册 信息 。 安 装 ANSIC 或 C++ 编译 
器 时 ， 可 能 需要 提供 指定 的 注册 细节 ， 


1 。 





3.2.1 系统 需求 

安装 MATLAB 编译 器 4.0， 必 须 首先 安装 MATLAB 7。MATLAB 编 详 器 对 操作 系统 和 内 
存 没有 额外 的 要 求 ， 只 需要 很 少 的 磁盘 空间 。 

MATLAB 编 详 器 要 求 首 先 安装 一 个 它 支 持 的 ANSI C 或 C++ 编译 器 ， 某 些 特 定 的 输出 要 
求 特殊 的 编 详 器 。 

通常 ， MAITLAB 编译 器 支持 第 3 方 编译 器 的 当前 版 本 和 以 前 诸 版 本 。 通 过 下 面 的 网 页 可 
查看 MATLAB 和 MATLAB 编译 器 支持 的 所 有 编 详 器 。 

http:AwwwImathworks.comysupporytech-notesy1600/1601.shtml 

可 以 使 用 下 面 32 位 CC++ 编 详 器 中 的 任何 一 个 来 创建 32 位 Windows 动态 链接 库 或 
Windows NT 应 用 程序 

se。 LeccCc24 (MATLAB 已 经 包 洛 该 编 详 器 )，C 编译 器 ， 不 能 用 于 C++ 的 编译 。 

as Borland C++ 3.3,5.4.5.$.5.6《〈 有 的 称 Borland C++ Builder 3.0.4.0.5.0.6.0) 

se viicrosoft Visual CAC+HUMSVC) 6.0.7.0 和 7.1 


3.2.2 ”安装 


1， 安 装 MATLAB 编译 器 

如 果 有 安装 MAILAB 编译 器 的 授权 ， 则 安装 MATLAB 时 会 有 是 和 否 安装 编译 器 的 选项 ， 
选择 它 就 可 以 安装 。 

如 果 安 装 MAITLAB 时 没有 出 现 是 否 安装 编译 器 的 选项 ， 需 要 限 MathWorks 公司 联系 。 多 
用 己 阅 络 安装 时 索取 更 新 授权 文件 (license.dat), 单机 标准 安装 时 索取 更 新 个 人 授权 密码 (PLP)。 


2， 安装 ANSI CA/C++ 编 译 器 

安装 ANSI CC++ 编 详 器 时 ， 按 照 厂商 的 提示 进行 安装 。 必 须 对 CXC++ 编 译 器 进行 测试 ， 
确保 已 经 正确 安装 并 注册 。 一 般 ， 厂 商会 提供 一 些 测试 程 序 。 

安装 CIC++ 编 译 器 时 ， 可 能 会 遇 到 需要 提供 特定 细节 的 注册 问题 。 表 3-6 提供 了 某 些 更 
常见 主题 的 信息 。 


表 3-6 注册 常见 问题 













建议 完整 安装 编译 器 。 如 果 只 安装 "部 分 ,可 能 会 忽略 MATLAB 编译 甘 
必需 的 组 件 


如 果 只 是 为 了 进行 编 评 ， 不 必 安 半 调 试 器 文件 。 但 是 ， 在 其 他 革 些 情况 


安装 选项 
ee | 
| 16 位 DLL 执行 序 | 不 是 和 的 
eg | fs 

从 命令 行 运行 确定 记 择 了 从 命令 行 运行 妨 译 回 的 所 有 相关 选项 
如 果 安 装 器 给 出 了 更 新 注册 信息 的 选项 ， 更 新 它 
如 果 秀 要 改变 编译 器 的 安装 位 置 ， 必 须 改 变 Common 目录 的 位 置 。 不 要 
改变 YWCc98 目录 的 位 置 
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3.2.3 注册 


MATLAB 有 一 个 各 为 mmbuild 的 工具 , 它 可 以 简化 CAC+H+ 编 详 器 的 安装 过 程 .一 般 情况 下 ， 
只 句 要 用 mbuild 工具 的 setup 选项 来 指定 使 用 哪个 第 3 方 编译 器 。 


1.，mbuild 工具 简介 

使 用 mbuild 工具 可 以 定制 注册 和 生成 过 程 .mbuild 脚本 提供 了 指定 选项 文件 的 简单 方式 ， 
可 以 实现 ; 

* 编译 器 和 链接 器 设 辕 ; 

es 改变 编译 器 或 改变 编 详 器 的 设置 

e 生成 应 用 程序 ， 

MATLAB 编译 器 (mece) 在 某 些 条 件 下 会 自动 调用 mbuitd 工具 。 特 别 地 ，mee -和 或 mec 
-调用 mbuild 进行 编译 和 链接 。 


2.， 注册 ANSI CAC++ 编 译 器 
编译 器 的 选项 文件 包含 一 些 标记 和 设置 ， 它 们 控制 所 安装 的 C 和 C++ 编译 器 的 操作 。 选 
项 文件 根据 编译 器 有 所 不 同 ， 即 MATLAB 为 支持 的 每 个 CAC++ 编 译 器 提供 惟一 的 选项 文件 ， 
选择 一 款 编译 器 与 MATLAB 编译 器 一 起 使 用 时 ， 对 应 的 选项 文件 会 在 系统 上 激活 . 选择 默认 
的 编译 器 ， 使 用 下 甸 的 诸 名 : 
mbuild -setup 
本 小 节 还 提供 了 与 选项 文件 有 关 的 其 他 信息 ， 有 些 用 户 可 能 会 根据 需要 修改 它们 。 大 部 
分 用 户 不 必 和 天心 选项 文件 的 内 部 把 作 ， 只 需要 用 setup 选项 指定 CAC++ 编 译 器 就 行 了 ， 
执行 下 面 的 命令 ， 
mbuild -setup 
按照 提示 指定 要 使 用 的 编译 器 。 
Please echoose your compiler for building standalone MATTI.ARHR 
applications: 





















































Weould yom like mbuild to localie installed compilers [yjmm?mn 


Select a coImpiler: 

[1 Borlarnd C++HBuUilder versiom .0 

[2 Borland C++Builder yersion 5 

[3 Bomand C++BuUilqer version 4.0 

[4] Borland C++Builder version 3.0 

[5] Borland CC+TH version 5S.(2 

[后 ] Borlandg 它 人 上 + Yetsica 5 

[ 门 Berland CAC+H [free cominand line iools) version 5.5 
纯 ] Lecc C version 2.4 

{I9] Microsoft Visual CACHH version 7.1 
[10] Ricroso 台 出 Snaal CACA+H Versior 7.0 
于 本 Microso 人 Wisg 直 CACAH+ YersioD 站 .DO 


[种 Nane 


ea 与 和。 











Compiler ]1 


Your rnachine has a Microso 人 在 Visuai CAC++ CorpPiler located at 
了 :APpplecattonsMicrosoft Yisual Studio. Do you want to Use tnis 
compiler [jzny y 


Please verify youI choices: 


Cotmnpiler Mictosoft Visuj CVC++ 6.0 
LocahonD: DApplecatiensMicrosoft Wisual Stnudio 


生 Te these COTrectyftyTny: y 


Try to update options 首 le: 
CAWTINNTYProfilesmsemamewAPppicatoan 
DataviviathWorksMATLAB'RJdcormpopts.bat 

From template: 
WwWSYysSUMAILABYBHYWIN32mbuildoptsvmsvc60cormpP-bat 


Done .. . 


Updated ，， 
表 3-7 显示 了 MATLAB 包含 的 选项 文件 。 


表 3-7 选项 文件 


选项 文件 
teecornpp .tt 





InsyepneornPP 心 耻 Jicrosoi Vist 人 二 ACT 在 必 
TSVETOcornpp .bat icerosoft Yisual CHTH 了 0 
msve71eornpp.ba MGicroso 革 Wisual CAT+ 了 1 
bee53c0mphb.bhat Borlamd C++ Builder3 
beesd4compp.bat Berfand C++ Buikder 4 
tec55compp-hat Borland C++ Builder 5 
bec5s6compp. 了 Bt Borland C++ Builder 各 








3.2.4 儿 个 问题 


1，Windows 编译 器 的 局 限 性 

对 于 支持 的 纺 详 器 ， 有 下 面 几 个 已 知 的 局 限 性 。 

s LccC 编译 器 不 支持 C++， 

se 以 有 Borland C++ Bailder(3.0.4.0.50 和 60 和 Microsoft Visual CACH++(6.07.0 和 了 JJ) 支持 
COM 对 象 的 生成 。 用 Borland C++ Builder 生成 COM 对 象 时 需要 微软 提供 的 MIDL 编译 器 . 

s Borland C++ 编译 器 有 ` -个 局 限 性 。 在 M 代码 中 ， 如 果 使 用 了 以 0 打头 的 常数 ， 并 日 
该 常数 的 小 数 点 前 面包 含有 数字 8 或 9，Borland 编译 器 会 显示 下 面 的 出 错 信 乱 ， 

Error <file>.c <line>: Hiegal octal digit in fanction 





与 十 。 








<functionname> 


2， 选项 文件 
如 果 想 知道 选项 文件 是 如 何 工 作 的 ， 请 阅读 下 面 的 内 容 。 
在 Windews 中 查找 选项 文件 ，imbuilda 脚本 按照 下 面 的 顺序 进行 查找 : 

s 当前 目录 :; 

e tser 和 rofile 目录 。 

mbuild 使 用 它 找到 的 第 1 个 选项 文件 。 如 果 没 有 找到 选项 文件 ，mbnuild 会 在 机 器 中 进行 
搜索 ， 碍 找 支 持 的 C 编译 器 ， 并 给 该 编译 器 使 用 默认 的 选项 文件 。 如 果 找 到 多 个 编译 器 ， 旭 
提示 你 从 中 间 选 择 一 个 。 

Windows 的 user profile 目录 包 售 用 户 指定 信息 , 例如 桌面 外 观 、 最 近 使 用 过 的 文件 和 * 开 
始 ” 菜 单 中 的 选项 等 。mbuild 工具 保存 它 的 选项 文件 compopts.bat， 它 用 -setup 选项 创建 ， 位 
于 user profile 目录 的 子 目 录 中 ， 名 称 为 Application DataMathwWorksWMATLABYR14。 在 用 户 概 
狗 可 用 的 Windows 系统 上 ，user profile 目录 为 外 windir%profileswsername， 在 用 户 概况 不 可 
用 的 Windows 系统 上 ，user btofile 目录 为 %windir% 。 可 以 用 “用 户 和 密码 ”控制 面板 确定 用 
户 疾 况 是 否 可 于。 

3 改变 选项 文件 

尽管 一 般 情 况 下 对 于 所 有 与 编译 器 有 关 的 操作 只 可 使 用 一 个 选项 文件 就 行 了 ， 但 可 以 随 
时 改变 选项 文件 。setup 选项 重新 设置 默认 编译 器 ， 使 得 可 以 随时 使 用 新 编译 器 。 使 用 下 面 的 
命令 重新 设置 C/C++ 编 译 器 。 

Imbuilda -setup 

setup 选项 将 合适 的 选项 文件 复制 到 user profile 上 日 录 下 。 按 照 下面 的 步骤 修改 选项 文件 。 

e 用 mpbuild -setup 命令 将 合适 的 选项 文件 复制 到 指定 目录 。 

。 编辑 user profile 目录 下 的 选项 文件 复制 ， 使 它 合乎 要 求 ， 并 保存 修改 后 的 文件 。 

完成 以 后 ，mbuild 脚本 会 使 用 新 的 选项 文件 。 


3.3 编译 处 理 


本 市 介绍 如 何 使 用 编译 器 ， 列 出 了 编译 器 用 到 的 几 种 输入 、 输 型 文件 集 。 
3.3.1 MATLAB 编译 器 术语 简介 


1，MATLAB 组 件 运行 时 
MATILAB 编译 器 40 使 用 MATLAB 组 件 运 行 时 (MCR)， 它 是 能 够 执行 M 文件 的 共享 
库 组 成 的 独立 集合 。MCR 对 MATLAB 语言 的 所 有 特性 提供 了 完整 的 支持 。 


2. 组 件 技术 文件 

编译 器 40 还 使 用 组 件 技术 文件 《Coulponent Technelogy File,CTF) 来 存放 可 部 署 的 包 。 
所 有 M 文件 都 加 密 保 存在 CTF 文人 消 中 。MATLAB 编译 器 生成 的 每 个 应 用 程序 或 共享 库 都 有 
一 个 相关 的 CTE 文档 。 文档 中 包含 所 有 基于 MATLAB 的 可 执行 内 容 (M 文件 .MEX 文件 等 )。 

多 CIF 文档 ， 例 如 COM 或 Excel 组 件 ， 可 以 在 同一 用 户 程序 中 共存 ， 但 是 不 能 混合 和 
匹配 它们 所 包含 的 M 文件 。 不 能 将 经 过 加 密 和 压缩 的 M 文件 站 多 CTEF 文档 中 组 合 到 另 一 个 


， 和 本 











CTF 文档 中 和 发 布 它们 :。 

站 定 CTE 文档 的 所 有 M 误 忻 都 用 一 个 性 硬 密 同 领 在 =- 起 。 其 有 下 同 密 匙 的 M 充 伞 前 
在 同一 个 CTE 充 档 申 时 不 能 执行 ,如果 试问 用 M 立 虱 的 下 同 姐 从 生成 另 一 个 庶 用 程序 ， 几 机 
怕 这 些 M 嘉 体重 条 编 说 到 一 个 疡 的 CTF 交 档 中 。 

3 生成 过 程 

用 MATLAB 护 详 妖 创 建 软 性 组 件 的 过 程 完全 是 自动 的 。 例 如 ， 要 创建 独立 MATLAB 硝 
图 程 府 ， 需 要 提供 组 成 程序 的 M 文件 刚才 ， 贷 后 蝙 谋 器 进行 以 下 换 作 ， 

二 全 束 分析 
生生 代码 
割 建立 档 
六 译 
链 续 
图 3-1 显示 了 蝙 译 器 生成 台 立 可 执行 程序 的 过 程 ， 





人 可 m 二 二 - 画 
晤 直上 届 


IT ， 闻 往 如 入 凤 生 成 





图 3i 疏 溃 野生 成 对 让 可 执行 程 厚 的 过 程 

下 面 舍 步 进行 从 申 

【111) 恢 情 盆 新 

这 一 步 确 定 指定 体 玄 件 ，MEX 文件 和 P 文件 岳 依赖 的 所 有 遇 数 。 列 表 上 包括 冶 定 误 件 调 
用 的 所 有 了 码 文 件 及 它们 调用 的 所 有 立 件 。 还 包括 所 有 内 台 函 败 和 MATLAB 对 象 ， 

【12 生 碟 打 息 器 虎 码 

这 一 步 生成 亿 建 目标 组 件 所 雷 要 的 所 有 活化 码 ， 和 包括 ， 


林 呈 醒 自 











es 命令 行 中 提供 的 这 些 M 函数 的 CACA++ 接 口 代 码 。 对 于 库 和 组 件 ， 沪 文件 包含 生成 的 所 
有 接口 通 数 。 

es 组 件数 据 文 件 包 含 运行 时 执行 M 代码 所 必需 的 信息 。 沪 数据 包括 路 径 信 息 和 载 入 保存 
在 组 件 CTE 文档 中 的 M 代码 所 必需 的 密 匙 。 

(3) 创建 CTF 文档 

依赖 分 析 中 创建 的 MATLAB M 文件 和 MEX 文件 列表 用 于 生成 CTE 文档 。 该 文档 包含 
运行 时 组 件 正确 执行 所 需要 的 所 有 文件 。 这 些 文 件 被 加 密 和 压缩 到 一 个 单独 的 文件 中 进行 部 
履 ， 还 包含 了 有 目录 信息 。 这 样 就 把 所 有 内 容 正 确 安装 到 了 目标 机 器 上 。 

(4) CAC++ 编 译 

这 一 步 将 打包 器 代码 生成 阶段 生成 的 CCr+ 文 件 编译 为 结果 代码 《object codey。 为 了 支 
持 在 mee 命令 行 包 含 用 户 提供 的 CAC++ 代 码 ， 这 部 分 代码 也 在 这 个 阶段 编译 ， 

(5 1] 链接 

最 后 一 步 ， 链 接生 成 的 结果 文件 和 必要 的 MATLAB 库 ， 以 创建 最 后 的 组 件 。 

CC++ 编 译 和 链接 都 使 用 mbuild 工具 。 


3.3.2 输入 和 输出 文件 
本 小 节 描 述 编译 过 程 中 创建 的 文件 ， 


1， 独立 可 执行 程序 
下 面 的 语句 中 ，MATLAB 编译 器 将 M 文件 fipo.m 和 barm 作为 输入 ， 生 成 独立 可 执行 程 


序 foo.exXe。 




















mcec 一 Da fo bartt 


输出 文件 如 表 3-8 中 记 示 。 
































包含 MCR 运行 程序 所 必需 的 数据 。 该 数据 包含 路 径 信息 、 当 焉 和 其 他 初始 











Co | 主打 包 器 源 文件 ， 包 含 程序 的 maina 函数 。main 函数 将 输入 参数 作为 字符 让 传递 给 foo 
oo iainc 
化 信息 
应 用 程序 的 主 可 执行 文件 。 该 文件 读 取 和 执行 保存 在 CIF 文档 中 的 内 容 
Tacc 一 W Tib:fibfoo -THlnk:Hb foom barm 


表 3-8 输出 廊 件 
函数 
CEE 文档 ， 访 文件 包 售 组 成 应 用 程序 的 M 文件 (foomm 称 barm) 的 压缩 加 密 文 档 ， 还 
2.C 共享 库 
输出 文件 如 表 3-9 中 所 示 。 
Tibgoo 库 打 包 器 安 源 文件 ， 包 售 库 的 输出 函数 。 输 出 函数 表示 痪 个 M 函数 (和 oom 和 
batiny、C 接口 和 库 的 初始 化 伐 玛 


恬 源 祥 件 ， 
包含 两 个 主 M 文件 调用 的 其 他 交 件 ， 以 及 运行 时 外 要 的 所 有 其 他 可 执行 内 容 和 数据 文件 
本 例 中 ， 输 入 为 M 文人 性 foom 和 Pbarm， 生 成 已 共享 库 libfoo.dll， 使 用 下 面 的 命令 : 
表 3-9 生成 共享 库 时 的 输出 交 件 
重 本 了 时 












库 打包 器 头 文件 


C 源 广 件 ， 包 含 MCR 初始 化 和 使 用 库 所 必需 的 数据 ， 包 括 路 径 信 息 、 密 是 和 其 
他 初始 化 信息 














上 bfec_mec_ pormponemt 吕 Rtg ee 





libfpo.expor inbuild 链接 库 时 要 贞 到 的 输出 文件 





Ci 文档 。 包 客 组 成 库 的 M 广 件 的 压 迪 和 加 密 文 档 。 还 和 包 痛 两 个 主 M 六 件 调用 
的 其 他 文件 ， 以 及 运行 时 需要 的 所 有 共 他 可 执行 内 容 和 数据 立 件 
libfoo.d 共享 库 一 进 制 立 件 


芭 bftoo.ett 











3.3.3 应 用 程序 的 部 圭 


用 MAILAB 编译 器 创建 组 件 以 后 ， 可 以 将 它 分 发 或 部 署 到 其 他 机 器 上 ， 使 得 其 他 用 户 可 
以 在 不 依赖 MATLAB 的 情况 下 使 用 该 组 件 。 进 行 产品 部 署 ， 有 下 面 几 点 要 求 ， 

s。 根据 生成 的 应 用 程序 的 类 型 将 必要 的 组 件 打包 。 

e 将 打 好 包 的 组 件 分 发 给 终端 用 户 。 

e。 终端 用 户 把 它们 安装 到 各 自 的 系统 上 。 在 安装 处 理 阶段 ， 终 端 用 户 需 要 在 目标 机 器 上 
运行 一 次 MCRIstaller 程序 ， 目 标 机 器 指 的 是 即将 运行 应 用 程序 或 库 的 机 器 。 在 Windows 系 
统 中 ，MCRinstaller 是 一 个 自 解压 可 执行 程序 ， 它 可 安装 运行 应 用 程序 所 必需 的 组 件 。 


1， 跨 平台 问题 

办 为 二 进 制 格式 在 不 辐 平 台 上 是 不 一 样 的 ， MATLAB 编译 器 生成 的 组 件 不 能 从 一 个 平台 
移植 到 另 一 个 平台 . 可 以 将 MATLAB 编译 器 生成 的 应 用 程序 分 发 到 任何 与 编译 机 器 具有 相同 
操作 系统 的 机 器 。 例 如 ， 如 果 试 图 将 应 用 程序 分 发 到 Windows 系统 的 机 器 ， 必 须 用 MATLARB 
编译 器 的 Windows 版 本 在 Windows 系统 的 机 器 上 生成 应 用 程序 。 

将 冰 用 程序 部 署 到 安装 有 不 同 操作 系统 的 机 器 上， 需要 重新 进行 编译 。 必 须 在 所 需要 的 
目标 平台 上 重新 编译 应 用 程序 。 例 如 ， 如 果 希 望 把 前 面 在 Windows 系统 的 机 器 上 开发 的 应 用 
程序 部 雪 到 Linux 系统 的 机 器 上 ， 必 须 在 Linux 机 器 上 使 用 MATLAR 编译 器 并 完全 重新 编译 
应 用 程序 。 然后， 在 两 个 平台 上 都 要 有 合法 的 MATLAB 编译 器 许可 证 。 


2 在 不 执行 组 件 的 情况 下 提取 CTF 文档 

CTF 文档 包 售 一 些 可 执行 的 内 容 ， 如 M 文件 和 MEX 文件 等 。 执 行 这 些 内 容 以 前 ， 需 要 
将 它们 从 文档 中 提取 出 来 .第 一 次 执行 基于 MATLAB 编译 器 的 组 件 时 , CTF 文档 会 自动 展开 。 
这 个 基于 MATLAB 编译 器 的 组 件 可 以 是 基于 MATLAB 编译 器 的 独立 应 用 程序 或 调用 基于 
MATLAB 编译 器 的 共享 库 或 COM 组 件 的 应 用 程序 。 

使 用 extractCTF.exe 独立 工具 ， 可 以 在 不 运行 应 用 程序 的 条 件 下 展开 文档 。 该 工具 位 于 
<Imatlabroof>ytooJboxycomilerdeploy/<ARCH> 目录 下 ， 其 中 <ARCH> 在 Windows 芭 统 中 为 
win32; 在 Linux 系统 中 为 gx86。 该 工具 的 输入 为 CTF 文档 的 名 称 ， 把 文档 展开 到 当前 工作 
目录 。 例 如 ， 下 面 的 命令 将 hello.ctf 展开 到 当前 工作 目录 。 

extractCTF hello.ctf 

文档 内 容 展开 到 一 个 名 为 hello_mer 的 目录 中 。 通 常 ， 包 含 展开 卢 的 文档 的 目录 名 为 
<componentname>_imcr， 其 中 componentname 为 CTF 文档 的 名 称 去 掉 扩 展 和 名。 

注意 ; 从 任何 目录 运行 extractCTF， 必 须 将 <matlabrooct>/rtoolhox/compilerydeploy/<ARCH> 


9 和。 














添加 到 PATH 环境 亦 量 。 


3， 交互 处 理 编 译 路 径 
MATLAB 编译 器 使 用 依赖 分 析 函 数 (depfon) 米 确 定 包 含 在 CTF 文档 中 的 必需 的 文件 现 
表 。 有 些 情况 下 ， 该 处 理 包 含 过 多 的 文件 数目 ， 例 如， 如 果 编 译 过 程 中 包含 了 MAITT AR 面 同 
对 象 编程 的 类 ， 并 且 编 译 时 不 能 确定 使 用 了 哪个 重 载 方法 ， 就 可 能 返回 所 有 重 载 方法 。 依 赖 
分 析 是 一 种 变 互 式 的 处 理 方法 ， 它 还 处 理 每 次 通过 时 的 inceiude/exclude 信息 ， 所 以 ， 当 CTF 
文档 很 大 时 ， 这 种 方法 处 理 小 程序 也 会 耗费 很 长 时 间 。 
城 少 文件 数目 最 有 效 的 方法 是 限制 编译 时 depfon 函数 使 用 的 MATLAB 路 径 。 编 译 器 包 
售 了 一 些 特性 ， 使 得 可 以 对 路 径 进 行 操作 。 目 前 有 3 种 方法 来 交互 处 理 编译 路 径 : 
# MAITLAB 的 addpath 和 rmpath 冰 数 ; 
s 在 imcc 命令 行 传递 -FE <directory>; 
e 在 mecc 命令 行 忧 递 -N 和 -p 目录 。 
(11) 使 用 MAILAB 的 addpath 和 和 rmpath 沁 数 
如 果 从 MATLAB 命令 提示 中 运行 编译 器 ， 可 以 在 编译 前 用 adapath 和 rmpath 命令 修改 
MATLAB 路 径 。 这 样 做 有 2 个 缺点 ; 
ee 路径 只 为 当前 MATLAS 进程 修改 ， 
es 如 果 编 译 器 在 MAITLAB 以 外 运行 , 则 本 方法 无 效 ,除非 在 MATLAB 中 运行 了 savepath。 
(2 ) 在 命令 行 传递 -T<directory> 选 项 
可 以 用 -I 选项 将 一 个 目录 添加 到 当前 编译 过 程 使 用 的 路 径 前 面 。 这 一 点 在 编译 自前 不 在 
MAILAB 路 径 上 的 目录 中 的 文件 时 有 用 。 
(3) 在 命令 行 传递 -N 和 -p <directory> 选 项 
现在 有 2 个 新 的 编译 器 选项 ， 它 们 提供 了 更 详细 的 路 径 操 作 方 法 。 对 于 给 定 的 编译 过 程 ， 
这 个 新 特性 就 像 是 一 个 用 于 MATELAB 路 径 的 过 滤器 .第 一 个 选项 是 .-N, 在 mcc 命令 行 传 递 -N 
可 以 有 效 清除 下 面 核心 目录 以 外 的 所 有 目录 的 路 径 。 
<Imatlabrooc>rtoolboxfmiatlab 
<Imatlaproof>/toolhbox/local 
<imatlabroot>ftoolboxyjcompiler 
它 还 保留 上 面 列表 中 编译 时 出 现在 MAILAB 路 径 中 的 目录 的 所 有 子 目录 。 在 命令 行 包 含 
-N 选项 ， 还 使 得 可 以 从 原始 路 径 中 替换 目录 。 另 外 ， 如 果 包 含 的 目录 也 出 现在 原始 路 径 上 ， 
则 包含 该 月 录 的 所 有 子 目 录 。 
使 用 -p 选项 ， 在 顺序 敏感 上 下 文中 给 编译 路 径 添 加 一 个 目录 。 所 谓 顺 序 敏感 ， 指 的 是 与 
MATILAB 路 径 中 的 顺序 相同 。 语 法 为 ， 
-PP <direetory> 
这 里 ，<directory> 是 要 包含 的 目录 。 如 果 <directory> 不 是 绝对 路 径 ， 则 假设 它 位 于 当前 工 
作 旧 录 下 。 包含 这 些 目 录 的 规则 为 ， 
es 如 果 用 -p 选项 包含 的 目录 位 于 原始 MATTLAB 路 径 中 ， 则 该 目录 及 其 出 现在 原始 路 径 
中 的 所 有 子 目 录 按 照 次 序 敏感 上 下 文 添加 到 编译 路 径 中 。 
。 如 果 用 -p 选项 包含 的 月 录 不 在 原始 MATLAB 路 径 中 , 则 该 目录 不 参与 编译 (可 以 用 -了 
选项 添加 它 )。 
s 如 斥 用 -I 选项 添加 丁 某 路 径 , 传递 了 -N 选项 , 并 且 该 路 径 已 经 位 于 MATLAB 路 径 中 ， 
是 与 吕 

















则 按照 次 序 敏 态 上 下 立 活 如 访 莉 健 。 理 则 将 路 入 襄 如 到 路 径 的 起 始 处 。 
334 人 司 用 MICR 


路 姗 用 声 在 他 们 的 机 某 上 运行 MATLAB 闹 谋 器 生成 的 考 忻 以 菏 ， 姻 果 避 前 没有 安装 
MekR， 盏 要 安 此 MCR。 只 需 此 在 毅 署 机 如 上 安装 一 次 

双 于 Windaws 用 户 ， 只 需要 简单 地 用 MCRinstallar T 具 COMCRInstallerexe 宅 瞄 MICR， 
接 央 下 面 的 步 杜 违 行 : 

[1 接 到 zallabroobxuoalhoxcompilsrdeplaywin3z 目录 下 的 MCRInstaller 工具 
MeRlnstalierexe， 并 将 它 复制 到 条 目录 下 。 运行 它 ， 解 压 册 儿 个 文件 ， 

fa 和 这 行 解压 出 的 号 PE 用 序 ， 蝇 示 “ 人 ATLABB Compeorent Riiine ”启动 禄 口 ， 刀 
图 于 于 所 示 ， 昔 击 “NExf* 技 检 ， 玫 妇 客 时 。 






亲 “NATLAR Camponent Romina” 窗口 


131 让 动 安装 导航 ， 单 击 “Next+ 按 饥 ， 旺 示 “Select Installation Folder” 对 话 框 ， 如 图 
3.3 抽 示 ， 


no 


曾 汪 3 SelectlnastallaioaRoer” 对 语 民 
画 而 全 到 








(4》 在 该 对 话 框 中 选择 安装 MCR 的 位 置 。 使 用 该 对 话 框 还 可 以 察看 系统 上 可 用 的 和 必 
要 的 磁 查 空间 。 设 置 选项 ， 然 后 单 击 “Next” 接 乌 继 续 。 

《S)》 单 击 “Next” 按钮， 确认 选择 。 开 始 安装 ， 根 据 安装 的 文件 的 和 多少 ， 安 装 过 程 需要 
一 定 的 时 间 。 

《6) 安装 完毕 和 以后， 在 “Installation Completed” 对 话 框 中 单 击 “Close” 按 秘 。 





3.4 使 用 mecc 


mcc 是 调用 MATLAB 编译 器 的 命令 ， 进 行 MATLAHB 程序 编译 ， 需 要 熟练 掌握 该 命令 的 
用 法 ， 


3.4.1 命令 概况 


mec 是 调用 MATLAB 编译 器 的 MATLAB 命令 ， 可 以 从 MATLAB 命令 行 或 DOS 命令 行 
发 出 mec 命令 。 

1， 编 译 器 选项 

可 以 给 mcee 指定 一 个 或 多 个 MATLAB 编译 器 选项 。 大 部 分 选项 的 名 称 只 有 一 个 字母 ， 可 
以 单独 列 出 各 选项 ， 如 

Incec -mm -timyfon 

宏 是 MATLAB 提供 的 编 详 器 选项 ,它们 简化 了 更 通用 的 编译 任务 。 不 必 手 工 组 合 多 个 选 
项 来 完成 特定 闫 型 的 编译 任务 ， 可 以 使 用 简单 的 宏 选 项 。 总 是 可 以 通过 使 用 单个 选项 定制 编 
译 处 理 来 满足 特定 的 需求 。 


2.， 组 合 选项 
可 以 把 不 带 参 数 的 选项 组 合 到 一 起 ， 例 如 ， 
Imce 一 mm Iryfutt 
带 参数 的 选项 不 能 组 合 ， 除 非 将 选项 和 它 的 参数 放 在 列表 最 后 。 例 如 ， 下 面 的 格式 是 合 
法 的 。 
mecc -y -Winain -了 lingcexe myfon 站 选 项 单独 列 出 
mcc -VW main -了 link:exe myfun 中 全 并 选项 
下 面 的 略 式 不 合法 
incc -Wv inain ~-T lnkexe myfon 
有 一 个 以 上 的 选项 带 参 数 时 ， 只 能 在 组 合 列表 中 包含 这 些 选 项 中 的 一 个 ， 并 且 该 选项 必 
须 位 于 最 后 。 可 以 将 多 个 组 全 列表 放 在 Imec 命令 行 中 。 
如 果 在 mee 命令 行 中 包含 任何 C 或 C++ 文件 名 , 这 些 文件 与 编译 器 生成 的 任何 和 或 C++ 
文件 一 起 直接 传递 给 mbuild 命令 。 
3， 命 令 行 中 的 冲突 选项 
如 果 使 用 冲突 选项 ， 编 译 器 优先 考虑 最 右 侧 的 选项 ， 例 如 ， 
Incc 一 间 一 W noue test.m 
等 价 于 


Dec 一 钙 Inaif 一 1ink'exe 一 W none test. Im 


“ 昌 ]， 





本 例 中 ， 有 2 个 冲突 的 -W 选项 。 编 译 器 优先 考虑 最 右 侧 的 选项 ， 即 -W none， 编 译 器 不 
生成 打包 器 。 

4 设置 默认 选项 

如 果 有 一 些 命令 行 选 项 ， 你 总 是 希望 将 它们 传递 给 mcec， 可 以 通过 设置 一 个 mccstartup 
文件 来 实现 。 创建 一 个 包含 必要 命令 行 选项 的 文本 文件 并 命名 为 mccstartup。 将 该 文件 放 在 下 
面 两 个 目录 的 某 一 个 中 : 

s 当前 工作 目录 。 

s 优先 目录 <sygstem roof>profiles\v<user>application datamathworksAmatlabYR14。 

mcc 在 这 两 个 自 录 中 按照 上 面 的 顺序 搜索 mecstartup 文件 .如 果 找 到 一 个 mcecstartup 文件 ， 
读 取 它 并 处 理 文件 中 的 选项 ， 就 像 出 现在 mec 命令 行 一 样 。Imeccstartnp 文件 和 -了 B 选项 按照 相 
同 的 方式 进行 处 理 。 


3.4.2 使 用 宏 简 化 编译 


MAILAB 编译 器 通过 其 详尽 的 选项 集 来 获取 完成 工作 所 必需 的 工具 。 如 果 需 要 一 个 简化 
的 方法 来 进行 编译 ， 可 以 使 用 一 个 简单 的 选项 ， 即 宏 。 使 用 它 可 以 快速 完成 基本 的 编译 任务 。 
宏 通 过 将 多 个 选项 组 合 到 一 起 来 完成 特定 类 型 的 编译 任务 。 

表 3-10 显示 了 完成 标准 编译 的 宏 方 法 与 多 选项 等 价 方法 之 间 的 关系 。 





表 3-10 宏 选 项 


拉 所 器 
-多 种 ET link:lib 





= 一 一 一 
-Tiakemxe | 


使 用 -m 选项 ， 让 编译 器 生成 独立 C 应 用 程序 。-m 选项 等 价 于 下 面 的 系列 选项 
一 WW main -link:exe 
表 3-10 显示 了 组 成 -m 志 的 选项 ， 以 及 它们 提供 给 编译 器 的 选项 。 
可 以 通过 编辑 <matlabroof>xtoolboxcompilebundles 目录 下 的 tnacro_option 文件 来 改变 宏 
选项 的 意义 。 例 如 ， 要 改变 -m 宕 ， 编 辑 bandles 目录 下 的 macro_option_ 上 m 文件 。 


3.4.3 ”使 用 路 径 名 


如 果 在 命令 行 中 给 M 文件 指定 完整 的 路 径 名 ， 则 MAITLAB 编译 器 : 
《1>》 把 完整 名 称 分 成 对 应 的 路 径 名 和 文件 名 (<path> 和 <file>)。 
《2) 用 “-I<path> <file>” 替 换 参 数列 表 中 的 完整 路 径 名 。 例 如 
ICcc -ml jhomemser myfile.in 
将 锌 看 作 
Incc -nm 开 册 omeAuser Inyfile.ma 
在 极 少 数 情 况 卜 ， 这 种 处 理会 导致 混乱 。 例 如 ， 假 设 有 两 个 不 同 的 M 文件 ， 名 称 都 是 
myfle.m， 有 及 位 于 /homemusetydirl 和 hhomemserdir2 目录 下 。 下 面 的 命令 
mcec -im -[I iomehnserdirl 由 omeuserrdir27myhlem 
与 下 面 的 命令 等 价 


站 了 











mecc -m 一 ihomemserrdiril 一 [ 由 omeAuseerdir2 myfile.m 
因为 - 工 选项 的 缘故 ， 编 译 回 编译 dir2 目录 中 的 myfile.m 文件 时 也 会 找到 darl 目录 中 的 
myfile.m 文件 并 编译 它 。 如果 意识 到 可 能 身 现 这 个 错误 ， 可 以 指定 -v 选项 ， 然 后 看 编译 器 解 
析 了 哪个 M 文件 。 在 依赖 性 分 析 阶 段 ，-v 选项 会 把 完整 路 径 名 输出 到 M 文件 中 。 


3.4.4 使 用 东 文 件 
束 文件 提供 了 组 合 编 详 器 选项 并 在 必要 时 重复 调用 它们 的 便捷 途径 。 柬 文件 选项 的 语法 
格式 为 : 
一 8 <fllename> 人 <al> ca <am>] 
在 mee 命令 行 中 使 用 时 ，- 卫 选项 用 指定 文件 的 内 容 替 换 整 个 字符 串 。 该 文件 应 该 只 包含 
mece 命令 行 选 项 和 对 应 参数 和 /或 其 他 文件 名 。 文 件 可 以 包含 其 他 -B 选项 。 
东 文 件 可 以 包含 接受 名 称 和 版 本 号 的 编译 器 选项 的 替换 参数 。 例 如 ， 有 一 个 用 于 C 共享 
库 的 束 文 件 csharedlib， 由 下 面 的 语法 组 成 。 
-lib: 吧 1 吧 开 1ink:hh 
为 了 调用 编译 器 生成 使 用 本 束 广 件 的 C 共享 库 ， 可 以 使 用 
mece -了 csharedlib:mysharedlih myfite.m myfile2.m 
通常 ， 东 文件 中 的 每 个 %mn%% 会 被 替换 为 指定 给 柬 文 件 的 对 应 选项 。 使 用 中 5 中 包 售 一 个 婚 
字符 。 传 递 太 多 或 太 少 选 项 给 束 文 件 都 是 错误 的 ， 
表 3-11 显示 了 可 用 的 束 文件 。 








表 3-11 可 用 的 束 文件 















-WeXCel<eoTnporent_narg>,<cpass_DarTne>,<YersioIt> 
-=-Tlnk:ih 下 






-六 cqharedljib:<shared tibrary_mnaime> 









-IT econtpjle:lib 
NA 


注意 : 用 MATLAB 编译 器 创建 COM 组 件 ， 必 须 安装 MATLAB 的 COM 生成 器 工具 ， 
创建 Microsoft Excel 插件 ， 必 须 安 装 Excel 生成 器 工具 . 


3.4.5 ”使 用 打包 器 文件 


打包 器 文件 包含 多 个 打包 器 函数 ， 通 过 提供 必要 的 接口 ， 打 包 器 文件 可 以 创建 MATLAB 
编译 器 生成 的 代码 与 所 支持 的 可 执行 程序 ， 如 独立 应 用 或 库 之 间 的 链接 。 这 些 接口 多 许 代 码 
在 必要 的 执行 环境 中 进行 操作 。 

为 了 提供 必要 的 接口 ， 打包 器 进行 打包 器 指定 的 初始 化 和 终止 ; 提供 函数 调用 MCR 的 分 
派 指令 。 






4 和 和 











指定 打包 器 类 型 ， 使 用 下 面 的 语法 : 
一 著 <type> 


1， 主 文件 打包 器 
-W main 选项 生成 适合 创建 独立 应 用 的 打包 器 .这 些 依 据 POSIX 的 主打 包 器 从 POSIX 解 
释 器 位 置 接受 字符 串 ， 返 回 状态 码 , 它们 把 这 些 命令 行 字符 串 作为 MATLAB 字符 串 传 递 给 M 
文件 函数 。 
对 于 下 面 的 M 文件 sample.m 
fnction y=sSamplefvarargin) 
Yarargin[: 
y=; 
可 以 将 samplem 编译 为 POSIX 主 应 用 程序 . 如 果 在 MATLAB 中 调用 sample 函数 ,结果 
类 似 下 面 : 
sampie heho world 
as 二 
he 
ng 一 
Worid 


ans= 
属 


如 果 编 译 sample.m 并 昌 从 DOS 环境 调用 它 ， 结 果 类 似 下 面 
CA Sample hello worid 


2.C 库 打 包 器 

-选项 或 它 的 等 价 语法 -W 即 :libname 生成 C 库 打包 器 文件 。 该 选项 用 任何 M 文件 集合 
生成 共享 库 。 对 于 每 个 编译 后 的 M 文件 ， 该 选项 生成 包含 C 函数 声明 的 头 文件 ,输出 列表 包 
含 C 共享 库 输 出 的 符号 集 。 

注意 : 从 更 大 的 应 用 程序 中 调用 任何 编译 器 生成 的 代码 时 ， 必 须 生成 库 打 和 包 器 文件 . 


3，C++ 库 打包 器 
-W cpplib:libname 选项 生成 C++ 库 打包 器 文件 .该 选项 允许 将 任何 M 文件 集 包 括 到 库 中 。 
生成 的 头 文件 包括 所 有 编译 过 的 M 函数 的 入 口 点 。 


4，COM 组 件 打包 器 
使 用 COM 组 件 打包 器 文件 可 以 用 MATLAB M 文件 创建 COM 组 件 。 生 成 COM 打包 冉 
的 选项 为 
一 多 com:<component name>[L<coass_nanme>[<major>.<miaor>]] 
一 WU exXcel:<component_name>|,<coass_name>[,<major>.<minor>]] 


COM 打包 器 选项 创建 生成 C 或 C++ 打包 器 时 创建 的 文件 的 超 集 ， 


和 填 。 








3.4.6 ”使 用 注 记 
在 独立 巳 和 C++ 模式 中 ， 注 记 


冯 宁 unetion <function_nhame-list> 
通知 MATLAB 编译 器 ， 编 详 过 程 中 应 该 包含 指定 的 函数 ， 而 不 管 编译 器 的 依赖 分 析 是 否 
发 现 了 它 。 没 有 这 个 注 记 ， 编 译 器 的 依赖 分 析 将 找 不 到 ， 并 且 不 能 编译 应 用 程序 用 到 的 所 有 
M 文件 ， 
不 能 用 % 帮 unction 注 记 引用 M 代码 中 没有 的 通 数 ， 
不 管 在 哪里 使 用 feval 语句 ， 在 代 但 中 使 用 %unetion 都 是 好 的 编码 技巧。 下 面 的 例子 演 
示 如 何 使 用 这 个 技巧 来 帮助 编译 器 在 编译 时 找到 人 台 适 的 文件 ， 不 需要 在 命令 行 包含 所 有 文件 。 


3.4.7 ”脚本 文件 


MATLAB 编译 器 不 能 编译 脚本 式 M 文件 ， 但 是 可 以 编译 调用 脚本 的 函数 式 M 文件 。 不 
可 以 在 mec 命令 行 显 式 指定 脚本 式 M 文件 ， 但 可 忒 指定 包含 脚本 本 身 的 函数 式 M 文件 。 
将 脚本 转换 为 函数 通常 很 简单 ， 只 需 在 M 文件 的 顶 行 添加 函数 行 就 行 了 。 
例如 ， 考 虑 下 宙 的 脚本 式 M 文件 houdini,m。 
Im 一 magicf41 
tmA3， 
由 spty， 
运行 本 脚本 式 M 文件 ， 可 以 在 MATLAB 工作 室 间 中 创建 变量 mm 和 +。 
MATLAB 编译 器 不 能 编译 houdini.m， 因 为 它 是 一 个 脚本 . 将 该 脚本 转换 为 消 数 ， 只 需要 
添加 一 个 函数 行 ， 即 
function houdqinifsz) 
In 一 ISRCC4); 
性 功 .A31 
dispft)， 
现在 MATLAE 编译 器 可 以 编译 houdinim 了 。 但 是 ， 因 为 现在 houdini 是 一 个 函数 了 , 运 
行 boudimi,m 木 再 在 MATLAB 工作 空间 中 创建 变量 mm 和 上 ft, 如 果 从 MATLAB 工作 室 间 中 获得 
变量 m 和 t 很 重要 ， 可 以 将 函数 形式 改 为 : 
function [mt=Houdinifsz) 
现在 ， 调 用 该 函数 时 会 返回 m 和 上 的 值 
编译 后 的 应 用 程序 由 两 层 M 文件 组 成 。 顶 层 为 接口 层 , 由 那些 直接 可 以 从 C 或 C++ 获取 
的 琐 数组 成 。 
在 独立 应 用 中 ， 接 口 层 只 包括 主 M 文件 。 在 库 中 ， 接 口 层 由 mee 命令 行 指定 的 M 文件 
组 成 。 
M 文件 的 第 2 层 包括 那些 被 顶层 图 数 调 用 的 M 文件 . 可 以 在 第 2 层 包 括 脚 本 ， 但 木 能 在 
顶层 包括 。 























3.5 独立 应 用 程序 


假设 要 创建 一 个 计算 大 型 魔方 矩阵 的 秩 的 应 用 程序 ， 方 法 之 一 是 用 CC 或 C++ 编写 整个 代 
让 站 本 。 








码 ， 这 需要 月 己 编 号 与 谭 方 矩阵 、 秩 和 麻 异 值 等 有 关 的 函数 。 一 个 更 简单 的 办 法 是 将 它 编写 
成 一 个 或 多 个 M 文件 ， 然 后 利用 MATLAB 及 其 工具 的 威力 来 实现 。 

可 以 创建 使 用 MAITLAB 数学 函数 的 应 用 程序 , 但 不 要 求 终端 用 户 拥有 月 已 的 MATLAB。 
独立 应 用 程序 是 将 MATLAB 的 功能 打包 并 分 发 给 用 户 的 一 种 比较 方便 的 途径 。 

独立 C 应 用 程序 的 源 代 码 可 以 全 部 为 M 文件 ， 也 可 以 是 M 文件 、MEX 文件 或 CJC++ 源 
代码 文件 的 组 合 。 

MAILAB 编译 器 将 M 文件 生成 为 C 源 代码 函数 ,使 得 可 以 从 MATLAB 交互 环境 以 外 调 
用 M 文件 ,编译 这 些 C 源 代 码 以 后 ， 生 成 的 对 象 文件 与 运行 时 库 相 连接 。 生 成 C++ 独立 应 用 
程序 进行 根 伺 的 处 理 。 

可 以 从 编译 器 生成 的 独立 应 用 程序 中 调用 MBEX 文件 。 然 后 该 MEX 文件 被 载 入 ， 并 被 独 
立 代码 调用 ， 


3.S$.1 C 独立 应 用 程序 


本 节 提 供 一 个 实例 , 演示 从 应 用 程序 编译 到 分 发 的 全 过 程 。 本 例 将 M 文件 magicsquare. 本 
创建 为 独立 C 应 用 程序 magicsquare。 


1 编译 应 用 程序 

《1) 将 文件 magicsguare.m 从 <matlabroobexternvexamplesveompiler 复制 到 工作 日 孙 。 

《2) 编译 该 M 代码 ， 在 命令 行 输入 

mece 一 mV magicsquare.m 

- 锯 选项 让 MATLAB 编译 器 (mcc) 生 成 一 个 C 独立 应 用 。-* 选项 显示 编译 步骤 并 帮助 识 
别 其 他 有 用 信息 。 例 如 使 用 了 电 个 第 三 方 编译 器 ， 引 用 了 哪些 环境 变量 等 。 

本 命令 创建 名 为 magicsquare 的 独立 应 用 程序 及 其 他 文件 .Windows 平台 在 文件 名 后 面 添 
加 .exe 扩展 名 。 


2， 测 试 应 用 程序 
核 照 下 面 的 步骤 ， 在 开发 独立 应 用 程序 的 机 器 上 测试 应 用 往 序 。 
《1) 更 新 路 径 。 在 工作 路 和 中 添加 十 面 的 目录 。 
<Imatiahbroot>Wbrrwwin32 
《2) 运行 独 芯 应 用 程序 
Imagicsqguare.exe 二 


3， 部 姥 应 用 程序 
可 以 将 MATILAB 编译 回 生 成 的 独立 应 用 程序 分 发 到 任何 具有 根 同 操作 系统 的 机 器 上 。 例 
如 ， 如 果 是 在 使 用 Windows 系统 的 机 器 上 生成 的 独立 程序 ， 就 只 能 在 使 用 Windows 系统 的 机 
器 上 部 嗜 该 应 用 程序 。 如 果 需 要 跨 平 台 使 用 ， 则 需要 相关 平台 的 MATLAB 和 MATLAB 编译 
器 许可 。 
在 Windows 系统 下 ,需要 搜集 和 打包 表 3-12 中 的 文件 并 将 它们 分 发 到 进行 部 署 的 机 加 上。 
* 交 克 。 








表 3-12 ”需要 搜集 和 打包 的 文件 


描述 


NM 1 自 解压 MATLAB 组 件 运行 时 库 工 具 ; 与 平台 有 关 的 文件 ， 必 须 与 终端 用 户 的 平台 相对 庶 ， 
人 该 文件 位 于 <inatiabroot>toelboxeompiletvdeplbywin32 目 示 下 


组 件 














组 件 技术 文件 ， 为 CTF 文件 ， 与 


magicsquare 应 用 程序 ， 在 Windows 东 统 于 为 magicsquare,exe 





人 台 有 关 








4 运行 应 用 程序 
按照 下 面 的 步骤， 在 终端 用 户 的 机 器 上 运行 独立 应 用 程序 。 
《1) 通过 运行 MCR 安装 器 来 安装 MCR。 
《2) 将 可 执行 文件 和 CTF 文档 复制 到 应 用 程序 的 根 目录 中 ， 例 如 Capproot。 
《3) 在 系统 路 径 中 添加 下 面 的 目录 。 
<InCT_ Toot>runtimevwrin3> 
(4) 运行 magicsquare 独立 应 用 程序 ， 并 提供 - -个 表示 魔方 大 小 的 数字 。 
IagicSQUaE 半 
本 2 了 13 
扩 ]1 10 8 
9 了 6 12 
4 ]4 1S 1 


3.S.2 ” 源 代 码 只 包括 M 文件 


创建 独立 应 用 程序 的 方法 之 一 是 将 所 有 源 代码 编号 在 一 个 或 多 个 M 文 件 或 MEX 文件 中 ， 
就 象 前 面 的 启 方 实例 一 样 。 用 M 文件 编写 应 用 程序 的 源 代 码 ， 可 以 利用 MATLAB 交互 开发 
环境 。 只 要 程序 的 M 文件 运行 良好 ， 就 可 以 进行 编译 并 生成 独立 应 用 程序 。 


考虑 一 个 简单 的 应 用 程序 ， 其 源 代 码 包 括 两 个 M 文件 ， 即 mrankm 和 mainm。 本 例 根据 
M 文件 生成 妃 代 玛 。 


mrankm 返回 一 个 整数 矢量 f。f 的 每 个 元 素 表示 魔方 矩阵 的 秩 。 例 如 ， 函 数 完成 以 后 ， 
X93) 包 括 3X3 魔方 矩阵 的 称 。 


fnetion I=Imranktn)》 
I=Zerostm 1) 
for =1n 


IO=rank(magic(ky); 
6 二 


本 例 中 ， 行 c=zerostn,1) 通 过 预 分 配 内 存 空间 来 改善 编译 器 的 运行 效率 。 
main.m 包含 一 个 主 函 数 ， 它 调用 mrank 函数 并 输出 结果 。 


foanction main 
T=Inrank(5) 
将 这 些 文件 编译 为 可 以 生成 独立 应 用 程序 的 代码 ， 调 用 MATLAB 编译 器 ， 如 下 所 示 ; 


Imcc -Im mair mTank 








-了 选项 使 MAILAB 编译 器 生成 可 以 创建 独立 应 用 程序 的 C 代码 。 例如 ，MATLAB 编译 
器 生成 源 代 玛 文 件 main.c,main_main.c 和 mrank.c。 main_imainc 和 包含 一 个 名 为 main 的 函数; 


= 和 了。 








mainc 利 mrank.c 包 售 名 为 mlfMain 和 mlfMrank 的 C 国 数 。 
为 了 生成 可 执行 应 用 程序 ， 可 以 用 mpuild 编译 和 连接 这 些 文件 。 或 者 ， 可 以 使 用 下 面 的 
命令 自动 化 整个 过 程 。 
Icec -m riain TITanK 
如 果 需 要 将 其 他 代码 组 合 到 应 用 程序 中 去 ,或 者 想 和 从 成 编译 应 用 程序 的 生成 文件 
fmakefile)， 可 以 使 用 下 面 的 命令 。 


mec -me main mrarn 攻 


3.5.3 源 代 了 码 包 含 M 文件 和 CAC++ 文 件 


创建 独立 应 用 程序 的 另 -- 种 方法 是 将 一 部 分 代码 用 一 个 或 多 个 函数 式 M 文件 编 写 ， 另 一 
部 分 代码 直接 用 C 或 C++ 编写 。 使 用 这 种 编写 方式 , 必须 懂得 调用 MATILAB 编译 器 生成 的 外 
部 C 或 C++ 函 数 ， 并 知道 如 何 使 用 这 些 C 或 C++ 函数 返回 的 结果 。 


3.6 库 


可 以 用 MATLAB 编译 器 将 MATILAB 算法 打包 成 C 或 C++ 共享 库 ， 然 后 在 用 C 或 C++ 
编程 时 调用 这 些 共享 库 中 的 函数 ， 就 象 从 MATLAB 命令 行 调 用 这 些 范 数 一 样 ， 


3.6.1 C 共享 库 


可 以 用 MATLAB 编译 器 生成 C 或 C++ 共享 库 。 很 多 用 于 创建 独立 应 用 程序 的 mec 选项 
也 可 以 用 于 创建 C 和 C++ 共享 库 。 


1.C 共享 库 打 和 包 器 

使 用 C 库 打 包 器 选项 可 以 用 任何 M 文件 集 创 建 共 享 库 。MAITLAB 编译 器 生成 一 个 打包 
器 文件 、 一 个 头 文件 和 一 个 输出 列表 。 头 文件 包含 所 有 编译 后 的 M 函数 的 所 有 入 口 点 。 输 出 
列表 包括 从 C 共享 库 答 出 的 符号 集 。 


2. 己 共 享 库 示 例 

下 面 的 例子 用 几 个 M 文件 创建 一 个 C 共享 库 ， 还 包括 一 个 调用 共享 库 的 独立 驱动 程序 。 
(1) 生成 共享 库 

把 下 面 的 文件 从 <matlabroot>'\externmexamplesveompiler 目录 下 复制 到 你 的 工作 且 录 。 


<Iatlabroot>externexamplestcompileraddmatrix.m 








<matlabrooct>exterrmexamplescompilerimaliplymatrixm 
<matlabroot>extermexarmplestcompilemeigmatrix.m 
<matlabroob>YextefrnexatmplesWcompilermatrixdrivere 

注意: matrixdriverc 包含 独 立 应 用 程序 的 主 函 数 ， 

使 用 下 面 的 命令 创建 共享 库 。 
mec ~B csharedib:libmatrix addmatrix.m mualtiplymatrmx.m eigmatrix.m 一 v 

-B csharedtib 选项 是 一 个 束 选 项 ， 它 扩展 为 
-W lib':<libname> -了 THnk:tib ， 

-W lib:<lipname> 选 项 让 MAITLAB 编译 器 生成 一 个 函数 打包 器 ， 名 称 为 Hbname。- 了 


= 站 辣 


link:lib 选项 指定 旦 标 输出 为 共享 库 。 

(2) 编写 驱动 程序 

调用 MATLAB 编 详 器 生成 的 共享 库 的 所 有 程序 都 有 大 致 相 同 的 结构 : 

sa 声明 变量 ， 处 理 和 验证 输入 参数 。 

ea 调用 mclimitializeAppiication 函数 ， 测 试 是 否 成 功 。 该 函数 设置 全 局 MCR 状态 并 使 得 
可 以 创建 MCR 的 实例 ， 

s 每 个 库 调 用 一 次 <libiatyaame>Initialize， 创 建 库 所 需要 的 MCR 实例 。 

e 调用 库 中 的 函数 并 处 理 结果 ， 这 是 程序 的 主体 

4 每 个 库 调 用 一 次 <libraryname>Terminate， 销 绩 相 关 的 MCR 实例 。 

se。 调用 melTerminateApplication 函数 ， 释 放 与 全 局 MCR 状态 有 头 的 资源 。 

es 清除 变量 ， 关 闭 文 件 等 ， 退 出 。 

本 例 使 用 matrixdriverc 作为 驱动 程序 。 

(3) 编译 驱动 程序 

编译 驱动 代码 matrixdriverc， 使 用 CAC++ 编 译 器 。 执 行 下 面 的 mhuild 命令 ， 用 CAC++ 编 
详 器 编 诺 代 码 ， 

mnbujild matmixdriverc jbmatrix.lihb 

注 普 :本 命令 假设 共享 库 和 第 2 步 创建 的 对 应 的 头 文件 位 于 当前 工作 目录 中 。 如果 不在 ， 
则 指定 完整 政 径 给 libmatrix.lib。 

这 里 生成 一 个 独立 应 用 程序 matrixdriverexe。 

输出 的 mlf 函数 的 定名 规则 一 般 为 : 

。 对 于 没有 返回 值 的 M 函数 
void mlf<function-name>(<list_of_ input_vatiabyes>h 
e 对 于 至 少 有 一 个 返回 值 的 M 函数 


void Imlf<tunctien-naarme>fint number_of _return_vValnesy， 











<jlist_ of pointer to_Treturn_variables>， 
<jist_of_ input_variables>; 
(4 ) 测试 驱动 程序 
按照 下 面 的 步骤 在 开发 机 器 上 测试 独立 驱动 程序 和 共享 库 。 





。 要 运行 独立 应 用 程序 ， 添 加 包 售 共 享 库 的 目录 。 共 享 库 在 前 面 已 经 创建 好 了 。 
。 更 新 动态 库 路 径 。 在 动态 库 路 径 中 涨 加 下 面 的 目录 。 


<rmatlabroot>binwin32 
s 键入 应 用 程序 的 名 称 ， 运 行 驱 动 程序 ， 
ImatrixdrivereXe 
结果 显示 为 ; 
The value of the addqed ratrizg 这 
2.00 4. 的 右 .0 
8.0 蕊 . 的 t2.00 





14.00 16.00 18.00 


The Yalue of the mu 失 plied taatrix 认 
30. 史 36.00 42.00 


和 归 日 。 








606.00 名 .0 56.00 
102.00 126.00 1310.0 


The Pigenyvalueg of the 人 rst ratrix is: 
1 站 .2 一 .12 -00 


(3) 部 署 调 用 共享 库 的 独立 应 用 程序 
部 署 调 用 共享 库 的 独立 应 用 程序 ， 需 要 搜集 和 打包 表 3-13 中 的 文件 并 把 它们 分 发 到 部 署 
机 器 上 。 





表 3-13 部署 调用 共享 库 的 独立 应 用 程序 需要 搜集 和 打包 的 文件 


组 件 描述 
自 解 上 MATLAB 组 件 运行 时 库 工 具 ， 创 建 该 文件 的 平台 必须 与 终端 用 户 的 绊 台 一 到 





raatrixdriveretf 组 件 技术 玄 件 ， 与 平台 有 关 
mattiXdriVeteXe 应 用 称 序 
lbmatrix.dll 闪 享 库 


(6) 部 署 共享 库 ， 用 于 其 他 工程 
使 共享 库 可 以 用 于 外 部 程序 ， 需 要 分 发 表 3-14 中 的 组 件 。 


表 3-414 将 共享 库 用 于 外 部 程序 希 要 分 发 的 组 件 




















MICRinstaIlerexe 自 解 此 MATLABH 组 件 运 行 时 库 工 具 ; 创建 该 立 件 的 平 各 必须 与 禾 端 用 户 的 平台 一 臻 
libmattix.c 侍 维 件 技术 文件 ， 与 平台 有 关 

libmatrix.h 库 的 头 嘉 件 

bmatrix.gl 共享 库 














3， 部 固 共 享 库 

运行 时 ， 有 一 个 MCR 实例 与 每 个 单独 的 共享 库 相 连 。 所 以 ， 如 果 应 用 程序 连接 了 商 个 编 
译 器 生成 的 共享 库 ， 则 运行 时 会 创建 两 个 MCR 实例 ， 

可 以 用 MCR 选项 控制 每 个 MCR 实例 的 行为 。MCR 选项 可 以 分 为 全 岗 的 和 局 部 的 。 全 
局 MCR 选项 程序 中 的 每 个 MCR 实例 都 可 以 识别 ， 局 部 MCR 选项 则 根据 MCR 实例 的 情况 
有 所 区 别 。 ， 

使 用 共享 库 ， 必 须 使 用 下 面 的 函数 ， 


间 InclimnitializeAbppjication 





se _ fmclIerminateApplication 

使 用 mcelIinitializeApplication 函数 ,可 以 设置 全 局 MCR 选项 , 它们 对 所 有 MCR 实例 同样 
适用 。 必 须 在 创建 MCR 实例 以 前 设置 这 些 选 项 ， 

这 些 贸 数 是 必要 的 ， 因 为 有 些 选 项 ， 如 是否 启动 Java、MCR 的 位 置 . 是否 使 用 MAITTAB 
的 JITT 功能 等 ， 都 在 创建 第 一 个 MCR 实例 时 进行 设置 ， 而 且 以 后 生成 的 MCR 实例 不 能 改变 
它 。 

注音 :使 用 驱动 程序 以 前 芝 须 调用 一 次 mclinitializeApplication 函数 ， 且 必须 在 调用 其 他 
任何 MATLAB 函数 以 前 调用 它 ， 

函数 调用 形式 为 : 


bool melInitializeApplication(const char #*options,int count); 


了 人。 








bool melTerminateAppPlication(void; 

mclImitializeApplication 函数 有 两 个 输入 参数 ， 一 个 是 用 户 可 以 设置 的 选项 字符 串 数组 ， 
另 一 个 是 选项 的 个 数 。 如 果 成 功 ， 返 回 rue， 否 则 返回 false。 

mcelTerminateApplication 函数 没有 输入 参数 ， 只 能 在 所 有 MCR 实例 被 销毁 以 后 调用 。 成 
功 时 返回 true， 和 否则 返回 false。 

注意 ， 调用 mclTerminateApplication 函数 以 后 ， 不 能 再 调用 mclImitializeApptication 地 数 。 
调用 mclTetminateApplication 函数 以 后 不 能 再 调用 任何 MATLAB 函数 ， 

于 面 的 函数 显示 了 这 些 函 数 的 典型 应 用 。 


jnt mainr]{ 








IIXATTaY *inl, yin2; 六 Define input Parameters z7 
InxAray *out= NULLIf# and outputhharatmeteTs to be Passed t 
te ]ibrary fnctions 灶 


double dataf] = {1.2.3.4.5.6,.7.8.9]; 


上 六 Cal]l the libraty intializatiom routine ahnd make sute 也 at 
the library Was initialized properly 知 
melInitializeApplicationf(NULL.0J; 
证 flibmatrixInitializeOf 
fprintftstdernn'eould not initialize the libraty 
Properlyin 作 
return 一 ] ; 


} 


苹 Create 由 be iDput data 岩 

inl = mXCTreateDoubleMatrixf3.3.D0XRE 和 AT)， 
in2 = InxeCreateJoubjlekMatnixf3.3.InXREATD); 
memepytmxGetPrfinly, data 9fsizeofdoupley; 
ImermepyonxGetprfin2), data 9#sjizeo 娘 double 


症 呈 下 ] 由 he library fnetion #7 

IlftAddmatrixrl, 让 Dut inl, in2); 

总 Display the return value of the jibrary function 拓 
Frintff"The value af added matrix isnmn' 

看 Sbplay(out); 

本 站 estroy 也 etEturn value Sinee this Variablie will be Tensed 
im 由 e next funetion call. Sinee We are goineg to retuse 也 e 
Yariahle wehave to setitto NULL. Referto MATLAB 
Compiler documentation for Imore intormation on thjs. 37 
ImxDestroyAarray(outi Dnt= 心 

ImfkMultiplynaatrixf1, out, in1, in27 

jaint The value of he multiplied matrix isn 

二 slayfoub; 

imnxDestroyArrayfout); out=0; 

mlfEigmatnx(l, 让 out, inly): 

Printf( "The Eigen value ef the first mlattix in” )， 
display(oub， 


ma 了 1 * 





IIHXDestroy 上 Tayfouty ont=; 


fa Call 由 e library terminationm Toutine 时 
libmatrjxTerminate; 


靖 Free the merrory created 避 7 
InXDestroyArrayfinly 世 1=0， 
ImXPestroyArray(in2); in2 = 0 
imnelTerminateApplicationgy; 
T&turt ]; 
] 
注意 ， 对 于 每 个 程序 ，melInitializeApplication 记 数 只 能 被 调用 一 次 。 调 用 第 2 次 将 导致 
错 肖 ， 并 导致 画 数 返回 false。 该 函数 外 须 在 调用 任何 C MX 函数 或 MAT 文件 API 函数 以 前 
被 调用 ， 
必须 按照 下 面 的 步骤 在 应 用 程序 中 使 用 MATLAB 编译 器 生成 的 共享 库 。 
(1) 在 应用 程序 中 包含 每 个 库 的 头 文 件 ， MATLAB 生成 的 每 个 共 学 库 都 有 一 个 相关 的 
头 文 件 ， 名 为 <lib-name>h， 其 中 <lib-name> 为 库 名 。 编 译 库 时 它 在 命令 行进 行 传递 。 
(2》 通过 调用 mclInitializeAbblication 函数 初始 化 MATLAB 库 。 每 个 程序 必须 调用 一 次 
该 函数 ， 并 且 必 须 在 调用 其 他 任何 MATLAB API 函数 以 前 调用 它 。 
(3) 对 于 应 用 程序 包含 的 每 个 MATLAB 共享 库 ， 必 须 调 用 库 的 初始 化 函数 。 该 函数 进行 
几 个 方面 的 初始 化 ， 例 如 解压 CTF 文档 ， 并 生成 一 个 带 有 必要 信息 的 MCR 实例 来 执行 文档 
中 的 代码 。 库 初始 化 函数 将 被 命名 为 <lib-name>Imitialize0， 其 中 <lib-name> 为 库 名 。 本 范 数 还 
返回 一 个 Boolean 型 状态 代码 。 返 回 值 为 true 时 表示 初始 化 成 功 ， 为 false 时 表示 失败 ， 
(4) 必要 时 调用 每 个 库 的 输出 函数 , 用 CMX API 函数 处 理 这 些 函 数 的 输入 、 输 出 参数 。 
(5》 应 用 程序 不 再 需要 给 定 的 库 时 ， 调 用 库 的 终止 函数 。 该 函数 释放 与 MCR 实例 有 关 
的 资源 。 库 终止 函数 的 名 称 为 <lib-name>Terminate()， 其 中 <lib-name> 为 库 名 。 一 旦 库 被 终止， 
库 的 输出 函数 在 应 用 程序 中 将 不 再 调用 。 
(6)》 程序 不 再 需要 调用 MAILAB 编译 器 生成 的 任何 库 时 ， 调 用 melFTerminateApplication 
API 函数 。 本 函数 释放 MCR 使 用 的 应 用 程序 级 别 的 资源 。 一 旦 调用 了 该 函数 ， 就 不 能 再 调用 
共享 库 中 的 任何 函数 。 


3.6.2 “C++ 共 带 库 


鳄 用 C++ 库 打 包 器 选项 ， 可 以 用 任何 M 文件 集 创 建 一 个 共享 库 。MATLAB 编译 恬 生 成 
一 个 打包 器 文件 和 一 个 头 文 件 。 闷 文件 包含 所 有 编译 后 的 M 函数 的 所 有 信 口 点 。 

注音， 即使 不 是 在 生成 共享 库 ， 将 编译 器 生成 的 任何 代码 包含 到 更 大 的 应 用 程序 中 时 也 
近 须 使 用 -WW lib 或 - 妈 cpplib 选项 。 

除了 使 用 cpplib 打包 器 外 ， 创 建 C++ 共享 库 的 步骤 与 创建 C 共享 库 的 相同 。 

mec 多 cppilib:libmatrx T link:lib addmatrixm maltipiymatrixim eigmatrix.ml 一 vV 

W cpplib:<libname> 选 项 让 MATLAB 编译 器 为 共享 库 生 成 一 个 名 为 <libname> 的 函数 打包 
器 。Tlink':lib 选项 指定 目标 得 出 类 型 为 共享 库 。 

下 面 的 例子 用 C++ 重 写 前 面 的 C 共享 库 ， 并 按照 下 面 的 步骤 进行 。 
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(1) 编写 驱动 程序 
下 面 编写 matrixdriver 程序 的 C++ 版 本 matrixdrivercpp。 


MAITRIXDRIVER.CPE 

半 Sample drnver code that calls a C++ shared Hbrary created UsIm 训 

:te MAITAB Compiler Referto the MAITLAB Compiler decumentation 
本 for more infomriation oz this 

刺 

# 下 由 e wrapEPeTr CPP gode to sa] ashared library created 

s Usirng the MAITLAB 和 ompiler 


味 


*Y CopyTighr 1994-2004 The MarthWorks, Ine， 











凡 Include the library specific header file as generated by the 
1 MAITLAB Compiler 
机 Pclmde “libmatrix.h” 


int mainO{ 


PCall abplication and library 记 诈 让 这 ation. Perferm this 
f imitializatton befere calling any 和 Pi 各 netions Or 
ACompiler-generated 1ibraries. 
话 人 melInitalizeApplicationf(NUELLO) 1 
:fibmatixInitializeO) 

std::eet << "eeould Tiot initiaize the library properly" 

<< std::endl: 
Teturmn -1]; 


一 一 


六 Create input data 

double data[] = {1.2.3.4.3.67,8 91 

ImwArray inlf3, 3, TIKXDIOUBLE_CLASS, mxREAILJ， 
InwWATITay in2(3, 3, TIXDOUBLE_ CLASS, IIXREATIL 
记 1.SetDatardata, 9， 

inoa.SetDatafdata, 9 ， 


CTealte cutput atray 
mwWATTay Guf 


PCall 由 he library funetion 
addmatrix(l ,ett, iD]1. in2j， 


二 








六 Display the retum valne of he jibrary function 
std':eout << "The value of added matrix 这:” << Std:endl; 
StdCout << OUt << Std::endl; 


mtiplymaixf(1 out, inl, in2) 

st;:cout << "The value of 由 e mulHplied matrix 让 :” 
<<std::end]; 
S 志 :Cobt << OUt < 过 Stdend 


eigrmatgix(], Out in1]; 

stdieout << "The eigenvalues of the 和 rst matrix are:" 
<< std'endl， 

5tiqd::eout << Out << std-:en 吉 : 


} 
Catch (const InwExceptiorn 友 e) 


{ 
Std cerr << ee.wWhaty << std::endl; 
Tebamn 一 1; 

} 

Catch {...) 


f 


Std::eerT << "LUrtexpected epror 出 rown”<< 5td:enmdli 
retum 一 ] ; 
} 


形 Call the 中 Blication and libyaty tertmination routine 
libimatmxTermninatef: 
InclTerminateApplicationfy' 


Tetumn 站 

】 
(2) 编译 驱动 程序 
用 C++ 编译 器 编译 matrixdriverepp 驱动 程序 代码 。 执 行 下 面 的 mbujld 命令 ， 使 用 C++ 编 

译 器 编译 代码 

mbuild matrixdriver.cpp bmatrix.iib 
(3) 把 C++ 库 合 并 到 应 用 程序 中 
将 C++ 共享 库 合并 到 应 用 程序 中 ， 与 使 用 C 共享 库 的 步骤 基本 相同 。 但 有 两 点 主要 的 差 


es 接口 通 数 使 用 mwArray 类 型 而 不 是 mxArray 类 型 传递 参数 。 
。 使 用 C++ 容错 结构 给 调用 函数 报告 错误 . 所 以 , 所 有 调用 必须 包括 在 ty-cateh 结构 中 。 
(4) 输出 函 数 的 形式 
C++ 共享 库 给 每 个 M 函数 生成 两 套 接 口 ， 第 一 套 是 输出 接口 ， 与 C 共享 库 中 生成 的 mlx 
名 称 相同 。 第 二 套 接口 为 C++ 函数 接口 。 输 出 C++ 函数 的 “- 般 形式 为 ， 
e。 对 于 没有 返回 值 的 M 函数 
void <fnnction-name>f<Jist_of imput_variables>y， 


e。 对 于 至 少 有 一 个 返回 值 的 M 函数 
es 74，。 








void <ftnction-natne>(fint auImnher of return_ values， 
jst_OE Yeturn_variables>,<ist_oft inpmt variables>) 
其 中 ，<list_of_ input_variables> 表示 逗号 间隔 的 const mwAray 久 类 型 的 列表 ， 
<list_of refum variables> 表 示 带 号 问 隔 的 mwArray 训 类 型 的 列表 ， 例 如， 在 libmatrix 库 中 ， 
addmatrix M 函数 的 C++ 接口 生成 为 : 


void addimatrixfint Targonttmw 上 Tray 攻 auconst ImwArray 必 31， 
COnst WATrFay 帮 32)， 


(5 ) 错误 控制 

C++ 接口 函数 在 执行 过 程 中 通过 扼 出 一 个 C++ 出 错 消息 来 控制 错误 。 使 用 mwException 
类 来 达到 这 个 目的 。 应 用 程序 可 以 通过 捕 拖 mwException 并 搜索 what(O 方 法 来 获得 出 错 消 息 。 
为 了 在 调用 C++ 接口 函数 时 能 正确 控制 错误 ， 将 每 个 调用 放 到 ty-catch 块 中 ， 即 


try 
{ 





《调用 函数 》 
] 


caichtconst mwWwException 皮 e) 


{ 
(控制 错误 } 
] 


matrixdrivercpp 应 用 程序 演示 了 调用 C++ 接口 函数 时 控制 错误 的 典型 方式 ， 
3.63 MATLAB 编译 器 生成 的 接口 函数 


MAILAB 编译 器 生成 的 共享 库 至 少 包含 7 个 接口 衣 数 。 有 3 个 函数 管理 库 的 初始 化 和 终 
止 ，1 个 打印 输出 信息 ，1 个 打印 错误 信息 ，2 个 负责 将 每 个 M 文件 编译 到 库 中 。 
要 生成 本 节 介 绍 的 函数 ， 首 先 把 sierpinskim 和 triangle.c 从 <matlabroof>extemexamples' 
compiler 目录 下 复制 到 工作 目录 ， 然 后 执行 合适 的 编译 器 命令 。 
对 于 C 应 用 程序 ， 命 令 为 : 
Inec -人 lib:libtnisamngle -T Tink:lib sierpmski.m 
imbuild triangie.c jibtriangle.lib 
对 于 C++ 应 用 程序 ， 命 令 为 ， 
Enec - 贤 cbplib:libtriangle -Tlnk:lib sietpinsla.m 
Imbuild triangle.cpp libtriangie.JIib 
这 些 命令 创建 一 个 名 为 triangle 的 主 程序 和 一 个 名 为 libtriangle 的 共享 库 。 该 库 得 出 一 个 
使 用 简单 迭代 算法 的 函数 来 生成 不 规则 酚 片 形状 ， 这 就 是 所 谓 的 Sieminski 三 角形 。triangle.c 
或 triangle.cpp 的 主 程序 有 一 个 可 选 的 数值 参数 ， 妇 果 它 存在 ， 会 指定 用 于 生成 不 规则 碎片 的 
点 数 。 例 如 ，triangie 8000 生成 一 个 有 8000 个 点 的 金刚 石 图 案 ， 如 图 3-4 所 示 。 
本 例 中 ，MATLAB 编译 器 将 生成 的 所 有 函数 放 在 文件 iibtriangle.c 或 ibmangle.cpp 中 


1. 调用 共享 库 的 程序 的 结构 

调用 MATLAB 编译 器 生成 的 共享 库 的 所 有 程序 具有 大 致 相同 的 结构 ， 包 括 : 
# 声明 参数 和 处 理 输入 参数 ; 

es 调用 tuclInitializeApplication 函数 并 测试 是 否 成 功 ; 





“75， 


生生 


本 
二 和 





因 34 壕 旺 生 碟 的 音 剖 五 罕 


上 枉 个 库 贡 用 一 聊 <librarmvmatmestniatialiae， 创 建 库 所 需要 前 MCR 实例 ， 
调用 库 中 的 函数 井 钼 理 结果 
手 个 库 调 用 一 天 <libraryname>Terminate， 销 绒 相 基 的 MCR 室 例 ， 
情 陈 变 和 量 ， 甘 闭 误 件 间 过 出 ， 
、 库 的 配 巡 化 和 姥 止 函数 
库 的 初始 化 和 毕 止 本 败 个 别 创 建 和 悄 组 扶 享 库 所 希 要 的 MECR 实例 , 必 将 在 调用 共享 库 中 
的 其 他 函数 前 调用 初始 化 函 歼 ， 莽 且 在 完成 对 共享 库 的 调用 以 后 【或 为 了 防止 内 存 泊 画 ) 应 
鳃 鱼 用 贬 正 函数 。 
有 商 种 形式 的 初始 化 函数 ， 一 个 些 止 函数 。 酚 种 初 妈 化 函数 申 园 简单 的 一 种 没有 输入 参数 ， 
友 部 从 情况 下 念 负 用 这 个 衣 数 ， 本 例 中 ， 初 始 化 函数 的 这 种 形式 称 为 tbrriangjeInitialize， 有 * 
eol EtrianelelInitialiaefwaidy 
该 函 数 用 默认 的 打印 和 错误 控制 和 蚁 谋 处 现时 生成 的 其 他 信息 创建 一 个 MCR 实例 .但 
是 ， 如 果 试 图 对 打印 输出 和 错误 控制 的 方式 进行 更 多 的 控制 ， 就 需 凤 调用 斌 抽 数 的 着 二 神 形 
式 ， 它 有 了 个 厌 数 。 形 式 为 : 
boel libtriangleinitializeWrithHandlersf 
FiclGutputHarndierEen Tor_hanaler， 
meliOutputHandierPen Print_handleri 
通过 调用 这 个 函数 ， 可 以 提供 自己 的 打印 和 异 襄 控制 函数 ，MCR 会 调用 它们 。 这 些 画 数 
具有 相同 的 范式 。 通 过 竹 关 莱 认 形式 ， 可 以 控制 界 出 如 何 显 示 ， 以 肪 是否 放 到 日 志 交 件 中 等 。 
在 Winduws 平台 上 ， 妨 译 咒 另外 生成 一 个 牢 始 化 函数 ， 即 标准 Microsaft DLL 初始 化 函 
赂 GTAain。 
BOOL WINAFPI DIIMainrHINSTANCEHlnstanee,DW DRD dwReasonwoid pw 
Dilwiain 函数 提供 根 重 要 的 服务 ， 它 可 以 确定 共享 库 保存 在 们 盘 的 是 个 目录 下 ， 访 信息 用 
于 查找 CPP 训 森 ， 谤 有 该 支 梢 ， 应 用 如 府 将 二 人 能 电疗 。 配 果 候 改 DllMain 冰 鉴 ， 要 确保 健 贸 
尼 的 这 部 分 功 请 。 
库 几 止 函数 比较 简单 ， 形 址 为， 
we 攻 hiriangleTermtinaielwoidyJ 


下 了 硬 到 








在 调用 mclTerminateAbplication 函数 以 前 调用 该 函数 。 


3.， 打印 和 错误 控制 函数 
默认 时 ，MATLAB 编译 嚣 生成 的 应 用 程序 和 共享 库 将 打印 的 输出 传送 给 标准 输出 ， 将 出 
错 销 息 传 送 给 标准 错误 。 编 译 器 生成 默认 的 打印 控制 函数 和 默认 的 错误 控制 郴 数 。 如 果 希 望 
改变 本 行为 ， 必 须 编写 自己 的 错误 和 打印 控制 函数 并 将 它们 传送 给 合适 的 初始 化 函数 。 
默认 的 打印 控制 冰 数 具有 下 面 的 形式 : 
static int mclDefaultPrintHandlertconst cliar #S)》 
默认 的 错误 控制 施 数 具 有 与 打印 控制 函数 相同 的 形式 ， 


static int InclDefaultErmorHandlerteonst char *S) 


4. 从 了 财 玄 件 生 成 的 函数 
对 于 MATILAB 编译 器 命令 行 上 指定 的 每 个 M 文件 ， 编 译 器 都 会 生成 两 个 函数 ， 即 mlx 
函数 和 mlf 函数 。 这 两 个 函数 具有 相同 的 作用 ， 即 调用 M 文件 函数 ， 有 具有 不 同 的 名 称 ， 表 示 
不 同 的 接口 。 每 个 函数 的 名 称 根 据 M 文件 中 第 ! 个 函数 的 名 称 确定 ， 每 个 函数 前 面 添加 一 个 
3 个 字母 的 前 缀 。 
(IT) mkx 接 吕 函数 
以 mlx 前 缀 打头 的 函数 与 MAITLAB MEX 函数 具有 相同 类 型 和 数 虽 的 参数 。 第 1 个 参数 
nlhs 为 输出 参数 的 个 数 ， 第 2 个 参数 plhs 为 指向 一 个 数组 的 指针 ， 数 组 中 为 函数 返回 值 的 个 
数 。 第 3 个 和 第 4 个 参数 为 输入 参数 的 个 数 和 一 个 包含 输入 变量 的 数组 。 
Yoid mlxsierpinski(int nlbhs,ImxArray *plhs[],int nrhsmxArray *#prhs[]) 
(2) mif 接 虽 函 数 
以 mif 前 红 打 头 的 函数 希望 其 输入 和 输出 参数 作为 单独 变量 ， 而 不 是 数组 进行 传递 。 如 
果 函 煞 可 以 生成 一 个 或 更 多 输出 ， 第 一 个 参数 为 输出 的 个 数 。 
void mifSierpinskikint RargoutInXATITay*# XIXAPTayy#y 轴 
MXKAITayyY iteTatiomns,InxXATray*# draw) 
注意 ， 在 这 两 种 情况 下 ， 生 成 的 函数 都 会 给 它们 的 返回 值 分 配 内 存 。 如 果 处 理 完 输出 变 
量 以 后 不 删除 内 存 ， 将 造成 内 存 油 露 。 


5， 在 M 函数 接口 中 使 用 varargin 和 varargoui 
如 果 M 函数 接口 使 用 varargin 或 varargout， 则 必须 将 它们 作为 单元 数组 传递 。 岗 如， 如 
果 有 N 个 varargin， 则 需要 创建 一 个 大 小 为 1XN 的 单元 数组 。 类 似 地 ，varargout 也 作为 一 个 
单元 数组 返回 。varargont 的 长 度 等 于 返 问 值 的 个 数 减 去 实际 传递 的 变量 数 。 在 MATLAB 中 ， 
表示 Yarargout 的 单元 数组 必须 是 最 后 一 个 返回 变量 ， 表 示 Yarargin 的 单元 数组 必须 是 最后 一 
个 形 参 。 
对 于 下 面 的 M 文件 接口 
[a.b,yarargouH=imyfon(x,yzvararginy) 
对 应 的 C 接口 为 : 
yoid miMyfantint mamO 人 RetVarsmRArray ruIIKArray * 和 hb， 
ImXATTay *##vVarargcUbIDXAETay7 XIXATTay *#W 
IOXATTaY #zJmXATray *vararginy》 


本 例 中 ，varargout 的 元 素 个 数 为 (numO 人 etVars-2)， 其 中 2 表 未 返回 的 2 个 实际 变量 a 
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和 让。varargin 和 varargout 都 是 单行 多 列 的 单元 数组 。 


3.7 COM 和 Excel 组 件 


将 MAILAB 提供 的 COM 生成 器 和 Excel 生成 器 与 MATLAB 编译 器 一 起 使 用 ， 可 以 创 
建 COM 对 象 和 Excel 播 件 。 


3.7.1 生成 COM 组 件 


用 MAILABS 编译 器 创建 COM 组 件 , 必须 先 在 系统 上 安装 COM 生成 器 。 可 以 用 MAITLAB 
编译 器 , 根据 MATLAB M 文件 创建 COM 对 象 , M 文件 集合 会 传递 到 一 个 单独 的 COM 类 中 . 
COM 生成 器 支持 一 个 组 件 有 多 个 美的 情况 。 

COM 类 的 接口 与 C 共享 库 导出 的 一 套 函 数 相同 ， 但 MAILAB 编译 器 对 创建 COM 对 象 
时 竺 成 的 C 和 C++ 代码 都 提供 支持 ， 

mec 侯 令 会 生动 完成 下 面 的 工作 : 

e 调用 微软 接口 定义 语言 (MIDL) 编译 器 ; 

*。 调用 资源 编译 器 ; 

e。 指定 DEF 文件 。 

使 用 mee 命令 的 选项 ， 可 以 完成 COM 兼容 DLL 的 自动 注册 。 

例如 ， 将 Pluslm 编译 成 COM 对 象 ， 使 用 下 面 的 语法 : 

Inec -~-B ecormaddinadqin,1. plus].m 

使 用 COM 打包 器 文件 可 以 根据 MATLAB M 文件 创建 COM 组 件 。 生 成 COM 打包 器 的 
编译 器 选项 为 ， 

-W com'<compornent_name>[,<class_name>[,<major>.<minor>]] 
-WwW eXcel:<cormponent_narme>[.<class_narme>[,<major>.<minorz]] 

COM 打包 咒 选 项 会 创建 一 些 文件 的 超 集 , 这 些 文件 是 在 生成 C 或 C++ 库 打 包 器 时 创建 的 ， 

除了 C 或 C++ 库 文 件 外 ，COM 打包 器 会 创建 寞 3-15 中 的 文件 。 


表 3-15 COM 打包 串 剑 建 的 文件 






TEST 


如 果 没 有 指定 <class_name>， 则 默认 时 为 <component_name>。 如 果 没 有 指定 版 本 号 ， 则 
默认 时 采用 最 后 生成 时 的 版 本 ， 或 者 没有 先前 版 本 时 指定 为 1.0。 

COM 打包 器 选项 生成 创建 一 个 单独 的 COM 对 象 所 必需 的 所 有 代码 和 文件 ， 该 对 象 包含 
编 详 器 生成 的 所 有 接口 。 打包 器 选项 创建 一 个 与 指定 的 <elass_name> 名 称 相 同 的 COM 类 和 - 
个 对 应 的 名 为 <class_name> 的 接口 类 . 使 用 主 版 本 号 和 次 版 本 号 来 控制 所 生成 的 COM 接口 的 
主 版 本 号 和 次 版 本 号 。 

COM 生成 器 用 C++ 而 不 是 C 生成 COM 接口 。 只 是 COM 有 这 方面 的 要 求 , 对 MATLAB 
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编译 器 来 说 并 没有 。COM 生成 器 自动 将 生成 的 所 有 C++ 源 文 件 演 加 到 mce 命令 行 。 
如 果 指 定 了 主 版 本 号 和 次 版 本 号 ， 编 译 器 会 用 指定 的 新 版 本 号 替换 任何 已 经 存在 的 类 型 
库 。 如 果 没 有 指定 版 本 妃 并 且 有 一 个 已 经 存在 的 类 型 库 ， 编 译 器 会 玲 换 当前 版 本 。 


3.7.2 生成 Exeel 揪 件 


用 MATLABE 编译 器 创建 Excel 插件 ,必须 在 系统 上 安装 MATLAB 的 Excel 生成 器 。 使 用 
Excel 生成 器 , 可 以 根据 MATLAB M 文件 自动 全 成 Visual Basie 模 欣 文件 (.bas) 和 DELL 播 件 ， 
可 以 将 它们 作为 独立 的 函数 导入 到 Excel 中 。 

例如 ， 将 pluslm 编译 为 Execel 插件 ， 使 用 下 面 的 命令 行 ; 

meec -B cexceliadqin,addin:1.0 piusl.m 

Excel 生成 器 生成 的 COM 类 与 COM 生成 器 生成 的 COM 类 具有 相同 的 结构 ， 并 跟从 相 

同 的 标准 ， 
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第 4 章 ， MATLAB 调用 动态 链接 库 


共享 库 是 系统 上 的 一 个 或 更 多 应 用 程序 可 以 使 用 的 函数 的 集合 。 在 Windows 系统 中 ， 它 
被 预 编 译 为 动态 链接 库 《〈.d) 文件 。 运 行 时 ， 该 库 载 入 内 存 ， 并 且 所 有 应 用 程序 都 有 权 使 用 
它 。MATLAB 提供 了 调用 DLL 的 接口 , 使 得 可 以 直接 从 MATLAB 调用 动态 链接 库 中 的 函数 。 

在 MATLAB 中 通过 命令 行 接口 很 容易 将 C 程序 生成 为 外 部 共享 库 .使 用 该 接口 可 以 将 外 
部 库 载 入 MATILAB 内 存 空间 ， 然 后 调用 其 中 定义 的 任何 函数 ,尽管 黄种 语言 环境 有 区 别 ， 柏 
是 大 多 数 情 况 下 可 以 直接 将 MATLAB 的 数据 类 型 传递 给 C 函数 ， 不 必 进 行 转换 。MATLAB 
会 帮 你 进行 转换 。 

该 接口 还 支持 包含 除 C 外 其 他 语言 编写 的 函数 组 成 的 库 〈 如 果 这 些 函 数 有 C 接口 )。 


4.1 库 的 载 入 和 寺 载 


在 MATILAB 有 有 权 谢 用 共享 库 中 的 外 部 函数 以 前 ， 必 须 首先 将 该 库 载 入 内 存 。 一 旦 载 入 ， 
就 可 以 查找 库 中 任何 函数 的 信息 并 直接 从 MATLAB 中 调用 它们 。 不 再 需要 库 时 ， 就 要 从 内 存 
中 他 载 它 ， 以 节约 内 存 。 


4.1.I 载 入 库 


用 loadlibrary 函数 将 共享 库 载 入 到 MATLAB 中 。 该 甸 数 的 语法 为 

loadlibrary('shrlib', bfile9 
其 中 shrlib 为 电 共享 库 文件 的 名 称 ，hfile 为 包含 函数 原型 的 头 文件 的 名 称 。 

作为 实例 ， 可 以 用 loadlibrary 函数 裁 入 定义 MAITLAB mx 函数 的 libmx 库 。 下 面 的 第 
条 语句 指定 头 文件 matrixh 的 目录 ， 第 2 条 语句 从 libmx.dl 中 载 入 库 ， 同 时 指定 头 文件 。 


hfile = [matlabroot "exterrmineludewmnatrix.n]: 
loadhibraryflibfnx' ,hfile) 


4,1.2 外 载 库 


肯 unloaqlibrary 函数 件 载 库 ， 清 字 它 所 占用 的 内 存 。 例 如 
Unieadiibrary 1ibrmx 


4.2 ”获取 库 的 信息 
可 以 用 下 面 两 个 函数 获取 库 中 函 数 的 信息 ， 


libfunctions( Hibname' 
libfoanctionsviewflibname'” 
两 个 函数 的 主要 差别 在 于 ，libfunctions 函数 将 信息 显示 在 MATLAB 介 令 窗口 ， 并 且 可 以 
将 输出 指定 给 一 个 变量 ， 而 libfunetionsview 函数 在 新 窗口 中 用 图 形 显示 信息 ， 


+ 员 丫 “ 











使 用 tibfunetions 函数 ， 箱 库 名 作为 眉 一 敌 数 ， 可 以 查看 lihmx 孟 中 可 以 茧 取 的 丽 数 。 往 
意 ;， 和 下 指定 输出 变量 寺 可 以 性 用 WMATLAB 击 令 主语 。 


机 相让 寺 总 下 是 lyrmx 

全 二 二 半生 证 读 ， 

谭 由 Ad 本 Fe FEGeIEIadhinataar XIELOEIEHISONLSTTre 
面 天 让 TRSTIER 1 吓 观 和 二 各 本 请 枚 DO 计生 Na 
TAGCHEESEERIESGETiRI EECetlaf 1 

丽 世 人 证 je 醒 记 CE 条 网 大仙 je 
EECEETSCELSrIDNGb|eF| 二 性 风 站 袜 Ue 二 可 LSCNPaSUE 


CT AT 而 天 人 Et- 日 世 jE 曾 | 而 国 国 号 EaarDaiahlsPR 区 生 t 


使 用 libfunetons 函数 的 -fall 各 项 ， 可 以 列 出 函数 的 所 有 形式 ， 芭 示 的 是 调用 忆 画 数 的 
MATLAB 语法 。 用 于 参 玫 列表 和 返回 值 的 数据 类 卉 与 MATLAB 类 型 而 不是 C 费 型 相 匹配 ， 


UUSEE 人 


鲍 让 二 辣 师 和 | 上 in 

| 着， 下 二 TESTEDHRMLATL 凡 晤 aay 
[地 ,palmiers MATLAB aaay| aaGetDaatMATLAB ray) 
[MATLAB umay, voidPtr] 厚 ASetDaaMATLAB may voidlPtr 
[全 量 二 C 二 TI- 入 转 大 Ti 机 时 GetPTTR 全 T 人 入 香 Ta 
[TEL 有 忆 allePr| SELECTL 上 时 六 直 ml 司 1 
[DLL 避 [ 

En 百 训 1simfdoable》 


bfunetuisview 函 孝 创建 一 个 新 的 窗 已 ， 显 示 指 各 41 方法 的 描述 项 
定 库 中 定义 的 所 有 函数 。 对 于 每 种 方法 ， 显 示 表 小 1 
者 赤 1 















中 的 信息 。 

St 二 未 区 二 开国 

库 的 内 容 ， ETTTTTTTS 
ITILESIE La 


局 二 电 本 8 HE 硬 天 ,6E 届 
1 可 本 和 -和 血 1 
| ER WA 本 师 9 


围 主 1 蜂 示 起 ma 讶 的 肉 容 
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女 libfunctions 函数 一 样 ， 显 示 在 这 里 的 数据 类 型 是 MATLAB 类 型 的 。 


4.3 调用 库 函 数 


共享 库 载 入 到 MATLAB 中 以 后 ， 可 用 calllib 函数 调用 库 中 的 任何 函数 。 下 面 指定 库 名 、 
函数 名 和 传递 给 函数 的 任何 参数 。 
calllibflibname'，furcnatrre ，arg1l,， argN) 
下 面 的 例子 从 libmx 库 中 调用 函数 来 测试 保存 在 y 中 的 值 。 


hhle = [matiabroot AExtettineludevmatrix.h]; 
loadHbraryflibmx' hfiie) 


yY=Iand4， 7 2 


calHjibflibptmx ，TrXCGetNumberoOfElerments ，7) 
ans = 
6 


calllibf ibmxy nxGetClassID' 让) 
ans 一 
ImxDOUBLE_CLASS 


4.4 传递 参数 


要 确定 传递 参数 给 库 函 数 时 使 用 什么 数据 类 型 ， 可 察看 libfunctionsyiew 或 libfunctions 
-fall 的 输出 。 这 些 函 数列 出 特定 库 中 满足 参数 指定 数据 类 型 的 所 有 图 数 。 

MAILAB 提供 了 一 个 名 称 为 shrlibsatmple 的 外 部 库 实 例 。 该 库 的 .dl 文件 位 于 
exteImexaImplesshrlib 目录 下 。 使 用 shrlibsample 库 ， 需 要 首先 用 下 面 的 命令 将 该 目录 浴 加 到 
MATLAB 路 径 中 。 

addpath(Etmatlabroot \externvexamplesvshrlib 人 
或 者 用 下 面 的 命令 使 之 成 为 当前 工作 目录 
cdt[matlabroot \externvexalinplesshrlib]) 
下 面 的 例子 载 入 shrlibsample 库 ， 并 显示 库 中 的 一 些 函 数 。 


loadiibrary shrlibsarmple shrlibsampleh 
1libfuncetions shnibsampie -full 


doublePtr miltDoeubleAmayfdoublePtr in132) 
double addMixedTypesfint16, in 芭 2, double) 
[Goupbie, dooblePtrj addDouhiIeReftdouhle, doublePtr double) 
[String, string]j stringToUpperstringy 

string zsdEnumfFEnbiml) 

douple addStructFieldsfc_structy 

[lib-Poimnten doublePt] multDoubleRef(deoublePtn) 
[double, c_stmetPtr] aqdStructBYRefte_structPtm 
c_structPtrPtr alocateStructfe_strmmctPtrPtm 
YoidPtr deallecateStruct(vo 刘 Ptm 

int16Ptr multiplyShortfint16Ptr, ip 的 2) 
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这 些 函 数 都 是 用 C 写 的 。 这 里 看 到 的 是 调用 上 函数 的 MATLAB 语法 。 

观察 上 面 列 出 的 函数 可 以 发 现 ， 函 数 的 输入 输出 参数 有 一 些 有 趣 的 现象 ， 

e 很 黎 参 数 类 型 《如 int32,doubfe) 与 C 的 对 应 类 型 很 相似 。 此 时 可 以 直接 传递 这 些 
MAILAB 数据 类 型 ， 

es 有 些 中 的 参数 类 型 《如 *#double， 预定 义 结构 ) 与 标准 的 MATLAB 数据 类 型 区 别 很 
大 。 此 时 通常 需要 选择 ， 确 定 是 传递 标准 的 MATLAHE 类 型 还 是 让 MAITAB 自动 转换 ， 或 者 
用 libstmct 和 libpointer 之 类 的 MATLAB 冰 数 转换 数据 。 

e CC 输入 参数 常常 以 引用 方式 传递 。 尽 管 MATLAB 不 支持 引用 传递 ， 但 可 以 创建 与 C 
引用 兼容 的 MATLAB 参数 ， 

e。 CC 畏 数 囊 常 将 数据 放 在 输入 参数 中 通过 引用 传递 返回 .MATLAB 创建 额外 的 输出 参数 
来 返回 这 些 值 。 注 意 ， 上 面 列 表 中 所 有 以 Ptr 或 PtrPtr 结尾 的 输入 参数 也 作为 输出 列 出 。 

传递 参数 通常 有 下 面 几 个 注意 事项 ; 

4 在 库 函 数 中 以 引用 方式 传递 非 标 量 参 数 时 ， 必 须 进 行 声明 。 

。 如 果 库 函数 使 用 单个 子 脚 本 索引 来 引用 一 个 二 维 扎 阵 ， 记 住 忆 程序 按 行 处 理 矩 阵 ， 而 
MATLAB 按 列 处 理 和 矩阵 。 所 以 调用 函 效 以 前 将 输入 第 阵 进 行 转 置 ， 和 输出 时 再 进行 转 置 。 

se 传递 二 维 以 上 的 数组 ， 数 组 的 形状 可 能 会 被 MATLABH 改变 。 为 了 确保 数组 的 形状 不 
变 ， 调 用 函数 以 前 保存 数组 的 大 小 ， 然 后 使 用 相同 大 小 对 输出 数组 进行 重 塑 来 校正 数组 的 维 。 

= sizefvim) % 保存 初始 维 


VS 一 
2 5 2 





Yeout = Calllibfshrlibsample tahtDonhleArray，vin. 207)， 


aizefvoui) % 维 被 改变 
ans = 
辽 10 
Vonut = Teshapefvoat, vs); %% 把 数组 保存 为 2*5*2 
Sizeltwvonty 
ang 二 


2 5 2 
* 使 用 空 数组 II)， 将 NULL 参数 传递 给 支持 可 选 输入 参数 的 库 函 数 。 
外 部 库 中 的 很 多 函数 使 用 引用 方式 传递 的 参数 . 为 了 使 用 户 可 以 处 理 这 些 函 数 , MATLAB 
传递 指针 对 象 给 这 些 参 数 。 


4.5 ”数据 转换 


本 个 节 介绍 在 MAITLAB 中 如 何 转换 参数 的 数据 类 型 , 以 及 用 户 认为 转换 数据 可 以 提高 效 
率 时 如 何 自己 转换 数据 ， 

在 大 多 数 情 况 下 ，MATLAB 会 自动 对 传 入 和 传 出 外 部 库 函 数 的 数据 的 类 型 进行 转换 ， 转 
换 为 外 部 函 数 所 希 刻 的 类 型 。 但 是 ， 有 时 可 能 会 有 选择 地 手工 转换 某 些 参数 数据 。 这 样 做 的 
好 处 如 下 所 述 。 

。 将 同一 般 数 据 传递 给 一 系列 库 函 数 时 ， 开 始 时 就 用 手工 一 次 进行 转换 比 用 MATLAB 
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每 次 调用 时 都 自动 转换 更 有 意义 。 这 将 省 去 不 必要 的 复制 和 转换 操作 ， 从 而 节省 时 间 。 

e 传递 较 大 的 结构 时 , 可 以 通过 创建 与 外 部 函数 中 使 用 的 《 结构 形状 相 匹配 的 MATLAB 
结构 来 节约 内 存 。libstruet 函数 创建 与 库 中 心 结构 类 似 的 MATLAB 结构 。 

s 外 部 函 数 的 参数 使 用 一 级 以 上 的 引用 时 , 比如 double**, 将 需要 传递 引用 .用 libpointer 
函数 进行 创建 。 手 工 创 建 比 MATLAB 自动 创建 要 好 。 


4.5.1 简单 类 型 


共享 库 接 口 支持 所 有 标准 的 标量 C 数据 类 型 。 简 单 类 型 及 其 等 价 的 MATLAB 类 型 , 如 表 
4-2 和 表 4-3 所 示 。MATLAB 使 用 右 列 的 数据 类 型 ， 参 数 的 C 数据 类 型 显示 在 左 列 。 表 4 3 
显示 了 扩展 的 MATLAB 数据 类 型 。 它 们 是 MAILAB 的 lib.pointer 类 的 实例 ， 不 是 标准 
MATILAHB 数据 尖 型 。 





表 4-2 简单 和 类 型 及 其 对 应 的 MATLAB 类 型 


己基 型 (432 位 计算 机 上 ) | 等 价 的 MATLAE 类 型 中 切 类 型 (32 位 计 交 机 上 等 价 的 MATLAB 类 型 


charhyte 地 纺 Tasiened irbunsigned long 
riSigKSd charbyte Tintg 





































Short intIe 









Dnsigned short - uintJ56 stmng【〈1I1tn 的 字符 效 组 ) 


诈 2 












in#jlong 





表 4-3 CC 指针 数据 类 型 及 扩展 的 MATLAB 类 型 














己 类 型 (32 位 计算 机 上 ) 
这 terger 指针 类 型 fint 


了 loat 二 


扩展 的 MATELAB 贡 型 
fjJintfsize)Ptr 
Sb 请 jeEPtr 











已 类 型 【 委 剑 计 算 机 上 》 扩展 的 MATLAHB 英 型 
Tray 六 MEAITLAHR 数 担 
YoidPir 


YD 过 林 























在 BPpePtr 后 面 加 于 Pr， 如 
double * 汶 doublePtrPtr 








double * doublePr 好 Pe # 孙 





1， 转换 为 其 他 简单 类 型 
对 于 简单 区 型 ，MATILAB 会 自动 将 参数 转换 为 外 部 函数 所 希望 的 数据 类 型 。 这 说 明 ,如 
宁 一 个 冰 数 希望 接受 一 个 byte(8 字 节 整数 ) 昏 参数 ,但 实际 上 传递 了 double 型 参数 时 MATLAB 
会 自动 进行 转换 ， 例 如 ， 下 面 C 函数 的 参数 类 型 为 short,int 和 double。 
double addMixedTypes(short x, int y% gonble 2) 
| 


IEtuTn {X 十 邓 十 Z 
] 
可 以 简单 地 将 所 有 参数 的 类 型 设置 为 double 型 , MATLAB 会 确定 每 个 参数 所 期 望 的 数据 
类 型 并 进行 合适 的 转换 。 
calllibf'shrjlibsample,'addMixedTypes', 127, 33000, pi 
ab 一 
3.3130e-HO04 
2， 转 换 为 引用 
当 外 部 函数 原型 定义 参数 为 引用 类 型 时 ，MATLAB 也 会 自 动 将 值 方式 传递 的 参数 转换 为 
引用 方式 传递 的 参数 。 所 以 将 MATLAB double 型 参数 传递 给 希望 输入 为 double *# 的 函数 时 ， 


“84 。 





MATLAB 将 它 转换 为 douhle 型 引用 。 
addDoubleRef 是 C 函数 ， 坚 求 输入 参数 的 闫 型 为 double*#。 
donble addDoubleRefrdouble x, double *y, double z) 
{ 


TetarrI fx 十 类 Y 十 2 
} 
用 3 个 double 型 参数 调用 湾 函 数 时 ，MATLAB 进行 转换 。 
calllihf'shrlibsampte'， addDoubleRef ，1.78, 3.42. 13.3) 


ams 一 


20.5000 


3 字符 串 
对 于 参数 类 型 为 char * 的 情况 ， 可 以 传递 MATLAB 字符 曲 ， 即 字符 数组 。 下 面 的 C 函数 
要 求 输入 参数 的 类 型 为 char *。 
chars StriagToUppertchar *input) 
char 和 = inpnt 


让 人 P = NULL) 
While (yblI=0) 
+p++ = toupper*p)， 
Tetuimmn input; 
| 
libfunctions 函数 显示 可 以 用 MATLAB string 类 型 作为 输入 。 
libfnnetions shrlibsample -和 1 
[string, string] strimgIoUPperstning) 
创建 一 个 MATLAB 字符 数组 str， 并 作为 输入 参数 进行 传递 。 
8 这 二 "This was 8a Mixed Case strinE 
calllibt shrlibsample。， StringToUPPer, st 
ans = 
THIS WAS A MIXPED CASE STRING 


注意 : 尽管 MATLAB 传递 给 stringToUpper 的 输入 参数 表示 一 个 char 类 型 的 引用 ， 但 它 
不 是 真正 的 引用 数据 类 型 ， 即 ， 它 不 和 包 念 MATLAB 字符 数组 str 的 地 址 。 所 以 ， 函 数 执行 时 ， 
返回 正确 的 竺 果 但 不 修改 sd 中 的 值 。 如 果 现 在 检查 Str， 可 以 发 现 它 的 值 没有 吉 变 。 


3 
Sb 一 
This was a Mixed Case String 多 


4.S.2” 枚 举 类 型 


对 于 定义 为 已 核 举 类 型 的 参数 ， 可 以 传递 枚 举 字 符 串 或 它 的 等 价 整数 。shrlibsample 库 中 
的 readEnum 函数 返回 与 传 入 参数 匹配 的 枚 举 字符 串 。 下 面 是 Enuml 的 定义 ， 以 及 C 两 数 


IEeadEnum。 


enum Enum1l {enl = 1, en2, en4 一 4 TEnumli 


char*# TeadEnumtTEnnml va) { 
9 六 二 











Switchb (yaly [ 

Case 1 :returm "Yo Chos& en ; 
fase 2i Teturn "TD chose en2”， 
fase 4: returm "You echose an4 
default : Tetum "enizm not deined ; 


} 
} 


在 MAILAB 中 ， 可 以 将 核 举 类 型 表示 为 核 举 字符 串 或 它 的 等 价 数值 。 上 面 的 丰 numl 定 
义 声 明 枚 举 en4 等 于 4。 首 先 用 一 个 字符 圳 调用 readEnurn 函数 。 
《alibhfCshrtibsample， TadFEnuim end7) 
an8 二 
You chose en4 


现在 用 等 价 的 数值 参数 4 调用 筷 。 
caltlibtshrlibsample'，readiEnumi, 4) 
ang 一 
Yon chese en4 


4.5.3 结构 

对 于 参数 为 结构 的 库 函 煞 ， 需 要 传递 结构 ， 该 结构 的 字段 名 与 库 中 结构 的 相同 。 要 确定 
名 称 和 结构 字段 的 数据 类 型 ， 进 行 下 面 任意 一 种 操作 ， 

se 参考 该 库 提 供 的 文档 。 

es 在 头 文件 中 查找 结构 的 定义 。 

也 可 以 从 MATLAB 内 部 确定 外 部 定义 的 结构 的 字段 名 。 创建 和 初始 化 结构 时 ， 不 必 匹 配 
数值 型 字段 的 数据 类 型 。MAITLAB 会 在 用 户 用 calllib 函数 进行 调用 时 进行 正确 的 转换 。 按 照 
下 面 的 步骤 获取 结构 的 字段 名 。 

e。 用 libfunctionsview 函数 显示 库 中 所 有 函数 的 形式 。 该 函数 显示 每 个 画 数 用 到 的 结构 的 
名 称 。 例 如 ， 键 入 

tbfonctonsview shrlibsample 

MATILAB 打开 一 个 显示 shrlibsample 库 中 函数 的 形式 的 新 窗口 。 下 面 的 命令 行 显示 

addStructEieids 函数 
double addstructFieldsltc_struct) 
e。 如 果 当 前 函数 有 一 个 结构 参数 ， 从 libfunetionsview 显示 中 获取 结构 类 型 ， 并 调用 
libstruct 函数 。libstruct 函数 返回 一 个 对 象 ， 该 对 象 技 照 库 中 定 尽 的 结构 进行 构建 。 
S=j]jbstructfc_stroct); 
se 从 libstmuet 返回 的 对 象 中 获取 结构 字段 的 名 称 。 
SetlS) 
pl0 
p2:0 
b3 垢 
e 用 要 传递 给 库 函 数 的 值 初始 化 字段 ， 并 用 callib 进行 调用 。 
8 P1=476;8.p2=-209;5.p3=1000， 
calllibeoshrlibsample'，addStwctFields'，s) 





+ 人 





1， 指 定 结构 的 字段 名 

下 面 是 儿 个 适用 于 将 结构 传递 给 外 部 库 函 数 的 事项 ， 

se 这 些 字段 包含 的 字段 数 可 能 比 库 结构 中 定义 的 少 , MATLAB 将 任何 未 定义 或 未 初始 化 
的 字段 设置 为 0。 

s* 使 用 的 任何 结构 字段 名 必须 与 库 结构 中 的 字段 名 相 匹配 。 注 意 结构 字段 名 是 有 大 小 写 
区 分 的 。 

。 结构 不 能 包含 库 结构 中 没有 定义 的 字段 ， 


2. 传递 MATLAB 结构 
对 于 其 他 数据 类 型 , 当 外 部 函数 有 一 个 结 梅 参 数 时 (例如 C 结 构 ), 可 以 传递 一 个 MATLAB 
结构 给 该 函数 。 结 构 宁 段 各 必须 与 库 中 定义 的 字段 名 丰 匹 配 ， 但 是 数值 型 字段 的 数据 类 型 不 
用 匹配 。MAILAB 将 MAILAB 结构 的 每 个 数值 型 字段 转换 为 正确 的 数据 类 型 。 
下 面 的 例子 演示 MATLAB 结构 的 传递 .示例 共享 库 shrlibsample 定义 下 面 的 C 结 构 和 函数 。 
struct C_struct 
double p1; 
测 ort D2; 
jong 了 3， 
k 





doube addStructFields(struct ec_struct st 
{ 

douhlet= stpl + st.p2 + st.p3; 

Ituret 上 
] 

下 面 的 代码 传递 MATLAB 结构 sm 给 addStmctFielas，asm 结构 有 3 个 double 型 字段 。 
MAILAB 将 字段 转 和 换 为 C 结构 ec_struct 中 定义 的 double.short 和 tong 数据 类 型 。 
SILpl = 476， SmP2 =-299， sm.pP3= 1000; 
callliibtshrlibsample'，'addStummctFields'， sim) 
atis 一 
1177 


3， 传递 ipstruct 对 象 

传递 结构 给 外 部 冰 数 时 ，MATLAB 确保 传递 的 结 移 与 库 中 定 尺 的 相 匹配 。 必 须 包 含 为 该 
类 型 定义 的 所 有 必需 字段 ， 并 且 每 个 字段 必须 是 所 要 求 的 数据 类 型 。 对 于 结构 中 的 任何 缺失 
字段，MAITLAB 创建 一 个 该 名 称 的 空 字段 ， 将 其 值 初始 化 为 0。 对 于 数据 类 型 与 结构 定义 不 
匹配 的 字 和 仆 ，MATLAB 将 该 字段 的 数据 转换 为 要 求 的 类 型 。 

操作 小 结构 时 ， 证 MATLAB 上 自动 转换 就 是 够 了 。 可 以 用 calllib 传递 初始 MATLAB 结构 
并 让 MATLAB 自动 控制 转换 。 但 是 ， 操 作 中 多 次 进行 传递 一 个 或 多 个 大 结构 的 调用 时 ， 对 外 
部 函数 作 任何 调用 以 前 手工 转换 结构 更 有 利 。 使 用 这 种 方法 只 需要 在 开始 转换 一 次 结构 数据 ， 
不 需要 每 次 调用 函 煞 时 都 转换 ， 从 而 可 以 节省 时 间 。 如 果 转 孩 后 的 结构 字段 占用 的 空间 比 开 
始 的 少 ， 也 可 以 节约 内 存 。 

可 以 用 一 个 步骤 将 MAILAB 结构 转换 为 类 似 的 C 结构 。 调 用 libstruct 函数 ， 传 入 库 中 结 
构 的 名 称 和 MATILAB 原始 结构 就 可 以 了 。libstmet 函数 的 语法 格式 为 

s=libstruetfstructtype' mlstruet) 





7 














函数 返回 的 值 s 称 为 fibstruct 对 象 。 尽 管 它 确实 是 一 个 MAITTLAB 对 象 ， 但 它 操作 起 来 更 
像 是 -- 个 MATLAB 嬉 构 。 这 个 新 “结构 ”的 字段 是 从 上 面 语法 中 struettype 措 定 的 外 部 结构 
类 型 获得 的 。 

例如 ， 将 MATLA3B 结构 sm 转换 为 jibstmruct 对 象 se， 使 用 下 面 的 语 名 

smpl=476;， sm.p2= -299; sm.p3 = 1000， 
SC = Tbstructfe _ struct ， SI 

sc 是 从 ec_struct 结构 次 型 获得 的 。 

初始 结构 sm 的 字段 都 是 doubie 型 的 。sc 的 字段 与 ec_struct 结构 类 型 的 相 匹 配 。 这 些 字 段 
的 数据 类 型 分 别 为 double,short 和 long。 

注意 ， 只 能 将 libstmuet 函数 用 于 标量 结构 。 

也 可 以 通过 调用 只 有 一 个 structtype 参数 的 libstnuct 国 数 来 创建 空 的 libstnmuct 对 象 。 这 会 
创建 一 个 具有 所 有 必需 字段 的 对 象 ， 每 个 字段 的 值 初始 化 为 0。 

s={ibstruetfstmacttyPe 

4， 把 结构 用 作对 象 

libstruet 函数 的 返回 值 不 是 真正 的 MATLAB 结构 。 它 实际 上 是 ib.e_struet 类 的 实例 ， 通 
过 查看 whes 函数 的 输出 可 以 看 到 。 





Whos sc 
Tarmne Size Bytes 人 1as8 
8 | 和 bc_struct 


(GTrang total is 1 element using 修 bytes 


本 结构 的 字段 作为 lib.c_stret 类 的 属性 来 实现 .可 以 用 MATLAB 的 面向 对 象 操作 函数 set 
和 呈 Et 读 取 和 修改 这 些 字段 中 的 任何 一 个 ， 例 如 ， 

SC = tbstructf'e_stmuct 

setlsc, 了 ] 100，p2， 150. 3 200): 

Set[sC) 
bl 100 
P2: 150 
P3: 200 


也 可 以 通过 简单 地 把 这 些 字段 视 为 其 他 任何 MATLARB 结构 字段 来 读 取 和 修改 。 
引 = 23; 
8 让 1 
anls 一 
23 


5. 传递 iibstruct 对 象 示例 
仍然 使 用 addStruetFields 实例 ,这 一 次 在 调用 函数 以 前 将 结构 转换 为 c_sttmuet 类 型 的 对 象 。 
sm.bl =476; sm.p2 = -299， sm.p3 = 1000; 
SC = 村 bstmetf ee _Strmet， St 
Setfsc] 
pl: 476 
p2: -299 
B3: 1000 





4 安放 = 











现在 调用 函数 ， 传 递 结 构 sc。 
calllibfshrlibsample addStbnuctPields ， sc) 
ans 二 
]177 


4.5.4 ”创建 引用 


可 以 用 传 值 方式 将 大 部 分 参数 传 给 外 部 函数 ， 邵 使 在 数 原型 声明 参数 为 引用 时 也 是 如 
此 。 但 是 ， 你 可 能 多 次 发 现 ， 将 MATLAB 参数 作为 忆 引用 的 等 价 形式 进行 传递 很 有 用 。 


1. 使 用 libpointer 函数 
使 用 下 面 的 语法 ， 用 lihpointer 函数 创建 引用 。 
P = libpointerCtype，value') 
例如 ， 创 建 一 个 指向 int16 型 值 的 指针 py。 在 libpointer 函数 的 第 1 个 参数 中 ， 输 入 正在 
创建 的 指针 类 型 gpe， 类 型 名 称 总 是 数据 类 型 【本 情 中 为 mnt16)， 后 组 为 Ptr。 
Y= intl6(485S); 
Pv = iibpointerg intl6oPtr v); 
返回 值 pv 实际 上 是 MATLASB 类 lib.pointer 的 实例 ，fib.pointer 类 有 具有 Value 和 DataType 
属性 ， 可 以 用 MATLAB 的 get 和 set 函数 读 取 和 修改 这 些 属 性 ， 
SetpY》 
Yue; 485 
DataType:'intIGPtr 
1ib.pointer 类 还 有 两 个 方法 ， 即 setdatatype 和 reshape。 


ImedhogstpYv) 
Methods for class hb,pojnter: 
setdatatype Teshape 


2. 创建 简单 类 型 的 引用 

下 面 是 一 个 演示 如 何 创建 和 传递 double 型 指针 ， 以 及 如 何 解释 输出 数据 的 简单 实例 。 函 
数 multDoubleRef 有 一 个 输入 ， 为 double 型 引用 ， 返 回 相 同类 型 的 值 。 

下 面 是 妇 画 数 ， 


double xmblionbleRefrgqouble *x) 
{ 

















中 一 

TIetuITn X; 
} 

创建 输入 数据 和 的 引用 xp， 并 确认 它 的 值 。 
天 = 1; 
Xp = HbpointertdonpijePtr ，x); 
REUKXD) 
WwWalue: 15 
DataType: doublePrr 


现 硅 调 用 函数 并 检查 结果 。 
cilllib(shrlihsample'，multDoubleRef ， xp); 
geKXDP，WValue' 


8D 。 





anls 一 
73 
用 1ibfunections 天 数 太 其 -full 选项 查看 shrlibsample 函数 的 原型 发现 MATLAB 返回 2 个 
输出 。 第 上 个 为 ihb.pointer 类 的 对 象 ， 第 2 个 为 doublePtr 输入 秦 数 的 值 属性 。 
1ibfunctons shrlibsarmple -full 
[地 .pointer douhblePtr] multDoubleRefttdoublePtnm 
多 次 运行 本 实例 ， 然 后 检查 返回 的 输出 值 。 
X = 15; 
xp = TbpointercdoublePtr xy 


[xohji, xval] = ecallliboshnibsample' ，multDoubleRcf ,xbph 
Xohj = 
lib.peinter 
XKYal 二 
73 
与 输入 的 引用 参数 类 似 ， 第 上 个 输出 xzobj 是 一 个 hb.peinter 类 的 对 象 。 可 以 查看 本 输出 ， 
但 首先 需要 饭 始 化 它 的 数据 类 型 和 和 大小。 用 lihb.pointer 类 定义 的 setdatatype 方法 将 数据 类 型 设 
置 为 doublePtr， 大 小 设置 为 1*#1。 
思 始 化 以 后 ， 就 可 以 查看 xobj 的 输出 。 
Setdatatypetxobj， doublePtr, 1， 1) 
get(xobj) 
angs 一 
Walue': 75 
DataType: doublePtr 


第 2 个 输出 xywal 是 从 输入 xp 的 值 复制 来 的 double 型 值 。 


3， 创建 结构 引用 
创建 结构 引用 参数 与 创建 税 单 类 型 的 引用 参数 区 别 不 大 。 下 面 函 数 有 一 个 c_struct 类 型 结 
构 的 引用 参数 ， 返 回 的 输出 参数 为 结 椅 中 各 字段 值 的 和 。 该 函数 还 修改 输入 参数 的 字段 值 。 


double aqdStrctBYyRefStruct c_ Stemet *S 和 
doubiet = st->pP1 + St->p2 + St>p3; 
St-2>Pj = .3 
中 ->p2 = 1234， 
St->D3 = 12345678; 
It 蕊 
} 
尽管 本 函数 希望 接收 一 个 结构 引用 类 型 的 输入 ,但 传递 结构 本 身 ， 然 后 让 MATLAB 将 它 
转换 为 引用 更 为 容易 。 下 面 的 例子 传递 一 个 MATLAB 结构 sm 给 函数 addStructByRef. 
MATLAB 将 正确 值 返回 到 输出 x 中 ， 但 不 修改 输入 sm 的 内 容 ， 因 为 sm 不 是 引用 。 
smp1=4710: smp2= -299，， Sm.p3 = 1000; 
X= calllib(shrlibsample'，addStmictByYRef, smy 


天 一 
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人 。 








也 可 以 用 引用 方式 传递 结构 。 这 时 函数 接收 一 个 指向 结构 的 指针 ， 然 后 可 以 修改 结构 的 
字段 。 


sp = 1]ibpointerf'c_struct, st 
calllibf shrlibhsample ,addStmctBYyRef， sp) 
ans 一 

1177 


RNSPp，Valne) 

ans 二 
革 533000 
Pa: 1234 
p3: 123435678 


4.S.5 引用 指针 


这 里 所 说 的 引用 指针 指 的 是 有 一 个 以 上 引用 级 别 (如 uint16 昱 ) 的 参数 , 在 MATLAB 中 ， 
这 些 参 数 类 型 的 名 称 都 有 PtrPtr 后 组 〈 例 如 uint16PtrPtr)。 
调用 输入 参数 为 引用 指针 的 函数 时 ， 可 以 使 用 引用 参数 替换 引用 指针 ， 然 后 证 MATILAB 
将 它 转 换 为 引用 指针 。 例 如 ， 外 部 的 allocateStmuct 青 数 希望 有 一 个 _stmctPtrPtr 参数 。 
Libfinnctions shihbsampje -full 
C_sShuctpPtrpPtrr allocaieStrmctlc_structPtrPrr) 
下 面 为 C 函数 。 
YO 订 ]ocaiESHUCHSHDCE CSHet yy 有) 
{ 
半 9 引 一 (Sttruct e_Structr] mallocfsizeofrstruct c_struct); 
(*vYal)->Pp1l = 12.4; 
(+*val)->p2 = 222; 
(+val)->p3 = 333333; 
] 


尽管 原型 说 明 需 要 c_stmetPtrPtr 输入 参数 ， 但 还 是 可 以 使 用 c_stmectPtr 并 让 MATLAB 进 
行 转换 。 下 面 创建 一 个 空 结构 的 引用 参数 ， 并 将 它 传 递 给 allocateStruet 结构 。 
名 = ]ibpeinter(e_structPtr; 
calllibfCshriibsample，alocateStmct, sp) 


ESLKSP) 
ans 二 
Walue' fitxl stmuet 
DataType: 5C_structPtr 


gettsp，Value) 
tn8 一 
pl: 12.4000 
Pa2: 222 
D3: 333333 
完成 以 后 ， 返 回 分 配 的 内 存 。 


calllibf shtlibsample' deallocateStmmet, sp) 


二 号] 。 














第 5 章 DDE (动态 数据 交换 ) 编程 


MATLAB 提供 了 一 些 实现 动态 数据 交换 (DDE) 的 函数 ， 利 用 它们 ，Windows 应 用 程序 能 
够 通过 数据 变换 实现 相互 通信 ， 即 使 得 MATLAB 能 够 调用 其 他 的 加 indows 应 用 程序 或 让 其 
全 应 用 程序 调用 MATLAB 程序 。 


5.1 _DPDE 概念 和 技巧 


应 用 程序 通过 DPDE 转换 来 实现 相互 通信 。 转 换 的 发 起 方 应 用 程序 称 为 客户 端 ， 转 换 的 响 
应 方 应 用 程序 称 为 服务 器 端 。 当 客户 端 应 用 程序 发 起 PDE 转换 时 ， 它 必须 确认 两 个 DDE 参 
数 ， 这 两 个 参数 由 服务 器 揣 提 供 ， 分 别 是 服务 器 端 应 用 程序 的 名 称 【 服 务 名 ) 和 转换 的 主题 

主题 )。 当 服务 器 端 应 用 程序 接收 到 一 个 指定 主题 的 转换 请 求 时 ， 它 回应 请 求 并 建立 一 个 

DDE 转换 。 

服务 器 名 和 主题 一 起 惟一 地 确认 一 次 转换 。 在 转 摘 过 程 中 ， 不 能 对 它们 进行 改变 ， 即 使 
服务 器 端 可 以 有 -一 个 以 上 的 转换 也 不 能 。 在 DDE 转换 过 程 中 ,客户 端 应 用 程序 和 服务 器 端 应 
用 程序 就 彼此 关心 的 项 目 交 换 娄 据 。 在 转换 过 程 中 ， 项 目 不 能 改变 。 下 面 更 详细 地 介绍 相关 

服务 名 : 每 个 可 以 作为 服务 器 的 应 用 程序 都 有 一 个 惟一 的 服务 和 名。 服务 名 通常 是 应 用 程 
序 的 可 执行 程序 的 文件 名 去 掉 扩 展 名 以 后 的 名 称 。 下 面 是 一 些 通用 的 服务 名 :MATLAB 的 服 
务 名 为 MATLAB，Word 的 服务 名 为 WinwWord， Execel 的 服务 名 为 Excel。 参 考 应 用 程序 文档 ， 
可 以 得 到 其 他 应 用 程序 的 服务 名 。 

主题 : 它 定 义 DDE 转 坑 的 主题 ， 通 常 对 于 客户 端 和 服务 器 端的 应 用 程序 都 是 有 意义 的 。 
MATLAB 的 主题 是 Symtem 和 Engine， 后 面 将 进行 讨论 。 大 部 分 应 用 程序 支持 System 主题 和 
至 少 一 个 其 他 主题 。 

项 目 : 每 个 主题 支持 一 个 或 多 个 项 目 . 项目 确定 DDE 转换 过 程 中 传递 的 数据 。 项目 名 称 
是 否 区 分 大 小 号 与 应 用 程序 有 关 。 如 果 MATLAB 引擎 项 目 引 用 矩阵 , 则 它们 是 区 分 大 小 写 的 ， 
因为 矩阵 名 称 是 区 分 大 小 写 的 ， 

剪贴 板 格式 : 为 了 在 应 用 程序 之 间 传 递 格式 化 数据 ，DDE 使 用 Windows 剪贴 板 格式 。 作 
为 客户 端 ，MATLAB 只 支持 文本 格式 。 作 为 服务 器 端 ，MATLAB 支持 文本 、Metafilepict 和 
XLJTable 等 格式 。 





5.2 MATLAB 作为 服务 器 


客户 端 应 用 程序 可 以 通过 一 些 方式 来 获取 作为 DDE 服务 器 端的 MATLAB， 这 些 方式 与 
客户 应 用 程序 有 关 : 如 果 使 用 进行 DDE 转换 的 应 用 程序 ， 而 该 应 用 程序 提供 了 函数 或 溉 ， 就 
可 以 使 用 这 些 函 数 或 宏 。 例 如 ，Excel、Word 和 Visual Basic 就 提供 了 DPDE 函数 或 宏 ， 可 参见 
相关 应 用 程序 的 文档 得 到 详细 的 信息 。 如 果 在 创建 自己 的 应 用 程序 ， 可 以 直接 使 用 MATLAB 


2 








引擎 库 或 PDDE。 图 5-1 演示 了 MATLAB 作为 一 个 服务 器 端 如 何 进 行 通 信 。 客户 端 应 用 程序 中 
的 DDE 通 数 与 MATLAB DDE 服务 器 端 模块 进行 通信 。 客 户 端的 DDE 毅 数 可 以 通过 应 用 程 
序 或 MAILAB 引擎 库 提 供 。 

MATLABR 客户 端 声 用 程序 


DD5 大 和 如 


5 MATLAB 作为 服务 器 端 时 的 通信 方式 


s,.2.1 DDE 命名 鼠 次 


作为 服务 器 端 获取 MATLAB 时 ， 必 须 指 定 它 的 服务 名 、 主 题 和 项 目 。 图 $-2 显示 了 
MATLAB 的 命名 层次 。 








EnHEEYVa 人 String 
EngStingResMtlt 
EngFPiSureResult 















图 52 MATLAB 的 命名 层次 


s.2.2 MATLAB 主题 和 项 目 
MATLAB 有 两 个 主题 ， 分 别 为 System 和 Engine。 


1 MATLAB 的 System 主题 

System 主题 允许 用 户 浏 览 服务 器 端 提供 的 主题 列表 、System 主题 项 目 和 服务 器 端 所 支持 
的 格式 。MATLAB 的 System 主题 支持 下 面 的 项 目 ， 

山 Sysitems: 提供 一 个 System 主题 所 支持 的 项 目 列表 ， 列 考 采 用 表格 分 隔 方式 。 

包 ) Format: 提供 所 有 由 服务 器 端 支持 的 格式 的 字符 囊 名 称 列表 ， 采 用 表格 分 隔 方式 。 
MAITLABR 支持 Tex、Metafilepict 和 XLTabel 等 格式 。 

昌 Topic: 提供 一 个 MATLAB 支持 的 主题 名 称 的 列表 。 


2， MATLAB 的 Engine 主题 

Engine 主题 让 用 户 通过 提供 一 个 命令 来 运行 MATLAB、 导入 和 导出 数据 , 这 样 , MATLAB 
作为 服务 器 端 使 用 。 

MATLAB 的 Engine 主题 支持 下 面 这 些 选项 ; 

e。 EngEvalString， 在 传递 给 MATLAB 一 个 命令 时 ， 如 果 需 要 的 话 ， 指 定 一 个 项 目 名 称 。 

。 EngStringResult， 从 MATLAB 导入 数据 时 提供 DDE execute 命令 的 字符 串 结果 。 

e。 EngHigureResult: 从 MATLAB 导入 数据 时 提供 DDE execute 命令 的 图 形 结 果 。 


“93。， 











e <nmatrix name>: 从 MATILAB 导入 数据 时 ， 数 据 和 矩阵 的 名 称 。 

MATLAS 的 Engine 主题 支持 三 种 操作 , 它们 可 以 通辽 DDE 窗户 端 界面 被 应 用 程序 使 用 。 
这 些 操作 包括 给 MATLAB 传递 命令 、 从 MATLAB 导入 数据 和 传递 数据 给 MATLAB。 

(1) 给 MAJLAB 传递 命令 

客户 端 应 用 程序 可 以 用 DDE 的 execue 命令 向 MATLAB 传递 命令 。 Engine 主题 用 两 种 
方式 支持 DDE 的 运行 ， 因 为 有 的 客户 端 程序 需要 指定 项 目 名 称 和 要 运行 的 命令 ， 而 有 的 客户 
端 程 序 则 只 需要 提供 命令 。 需 要 用 到 项 目 名 称 时 ， 使 用 EneEvalString。 两 种 形式 都 要 求 命令 
的 格式 为 交 本 格式 。DDE execute 参数 的 描述 如 表 5-1 所 示 ， 


表 5-1 _DDE execute 参数 描述 


志 5 
四 5 





(2) 从 MATILAB 导入 数据 

使 用 DDE 的 request 命令 从 MATLAB 导入 数据 . Engine 主题 对 三 个 函数 支持 DDE 请 求 。 

包 前 一 个 DDE execute 命令 的 文本 结果 : 使 用 文本 格式 的 EngstringResnult 项 目 导入 DDE 
exXecute 命令 的 字符 串 结 果 。 

G@ 前 一 个 DDEexecute 命令 的 图 形 结 果 : 使 用 EngFigureResult 项 目 导入 DDE execute 命 
令 的 图 形 结 时。PngFigureResuit 项 目 可 以 有 Te 对 和 Metafilepict 两 种 格式 ; 

用 值 为 “yes” 或 “no” 的 字符 串 指 定 Text 格式 的 结果 。 如 果 结 果 为 “yes”， 当 前 图 形 的 
图 元 文件 被 放 堵 到 剪贴 板 上 。 这 种 格式 提供 给 只 从 DDE 请 求 中 获取 文本 的 DDE 客户 程序 ， 
如 Word for Windows 等 。 如 果 结 果 为 “no*， 不 在 剪贴 板 上 放置 任何 图 元 文件 。 

当 有 壮 形 结果 导致 一 个 图 元 文件 直接 从 DDE 请 求 中 返回 时 ， 指 定 为 Metafilepiet 格式 。 

岛 指定 矩阵 的 数据 : 通过 将 矩阵 名 称 指定 为 项 目 来 导入 矩阵 数据 。 可 以 指定 为 Text 格式 
或 XLTaple 格式 。 表 52 总 结 了 DDHE 请 求 的 参数 。 


表 5-2 DDE 请 求 的 参数 


， 般 






xewho 
当前 好 片 的 图 元 文人 


字符 缓冲 器 ， 列 表 问 了 
<matrix narmie> XTETabple 二 进 制 数据 ， 与 Exeel 兼容 


(31 传递 数据 给 MATLAB 

客户 程序 使 用 DDE 的 poke 命令 将 数据 传递 给 MATLAB。Engine 主题 支持 DDE 的 poke 
命令 在 MATLA8B 工作 空间 中 更 新 和 创建 新 矩阵 。 指 定 的 项 目 为 要 更 新 或 创建 的 矩阵 的 名 称 。 
如 果 指 定名 称 的 矩阵 在 工作 空间 中 已 经 存在 ， 它 将 被 更 新 ， 如 果 不 存在 ， 将 创建 一 个 新 的 矩 
阵 。 矩 中 数据 可 以 有 Text 或 XLTable 两 种 格式 。 下 表 概 述 了 DDE paoke 命令 的 参数 








2 4 








表 5-3 DDE poke 命令 参 妆 








字符 线 冲 器 ， 列 表 间 陋 
二 进 制 数据 ， 与 Excel 划 容 








5.3 MATLAB 作为 客户 


要 将 MATLABH 作为 客户 端 应 用 程序 ， 使 用 MATLAB 的 DPDE 客户 函数 建立 和 保持 转换 ， 


S.3.1 相关 函数 


MATITLAB 作为 DDE 客户 端 时 包含 - -系列 函数 , 它们 允许 用 户 将 MATLAB 作为 客户 端 程 
序 人 使用。 这些 函数 如 表 5$-4 所 示 。 


表 5-4 _DDE 函数 
糖 述 
安装 MATLAB 与 DPDE 服务 器 端 应 用 程序 之 间 的 提示 链接 
给 DDE 服务 器 端 应用 程序 传送 过 行 字符 串 
初始 北 MATLAB 与 另 一 个 应 用 程序 之 问 的 DDE 转换 








ddepoke 从 MATLA 向 DDE 服务 器 端 应 用 程序 苇 送 孝 据 


| 请 求 源 于 DDB 服务 器 喘 应 用 程序 的 数据 
终止 MATLAB 与 服务 器 端 应用 之 间 的 DDE 转换 
| 取消 MATLAB 与 DDE 服务 器 映 应 用 程序 之 间 的 提示 链接 

















下 面 给 绸 这 些 函 数 的 调用 格式 及 说 明 。 


1，ddeady 函数 
该 函数 在 MATLAB 与 服务 器 应 用 程序 之 间 创 建 aqvisory 链接 ， 调 用 格式 为 ; 
Tc = ddeadqdvfchannel,item ,callback 7 
fc = ddeadvfchannel,itenmr ,callback upmtx' 
IC = dqeadvfchannelvitem' ,eallback' upmtx' ,formaty 
IC = ddeadvfchannelvitem':eallbackupmtx' formathmeotf) 
item 参 数 识别 的 数据 发 生变 化 时 ,callhack 人 参数 指定 的 字符 串 传 递 给 eval 函数 并 进行 处 理 。 
如 果 adyisory 链接 不 是 热 链接 ， 则 DDPE 修改 更 新 矩阵 upmtx 来 反映 item 中 的 数据 情况 。 
如 果 忽 略 不 在 参数 列表 末尾 的 可 选 参数 ， 则 必须 用 空 矩阵 表示 缺失 参数 。 如 果 成 功 ， 
ddeady 函数 在 变量 rc 中 返回 1， 和 否则 返回 0。 各 参数 的 说 明 如 表 5-5 所 示 。 


表 5-5 乞 数 说 了 月 








ddeinit 函数 建立 的 会 话 通道 
为 advisery 体 接 指定 DDE 选项 和 名称 的 字符 串 。 改 变 item 潜 示 的 数据 会 触 发 advisery 链接 








为 指定 更 新 通知 时 进行 处 至 的 回调 的 字符 串 。 改 变 ieem 确定 的 数据 会 时 至 callback 参数 传 给 evwal 函数 进行 处 理 

为 字符 昌 ， 该 字符 趾 指定 其 数据 与 更 新 通知 一 起 发 送 的 矩阵 的 名 称 。 如果 包 含 wpmtx 参数 ， 改 变 iem 参数 会 
导致 upmtx 人 参数 被 修订 数据 更 新 。 指 定 upmtx 参数 会 创建 一 个 热 链接 . 如 果 upmtx 函数 存在 于 工作 空间 中 ， 则 王 
蓝 其 内 容 。 站 果 upmtx 参数 不 存在 ， 则 创建 它 





全。 











为 12 元 素 的 数组 , 指定 要 发 送 的 数据 的 格式 。 第 1 个 元 素 指定 使 用 的 Windows 剪贴 板 格式 , 目前 只 支持 cf_text 
格式 ， 它 对 应 于 值 1- 第 2 个 元素 指定 生成 的 矩阵 的 区 型 。 舍 法 的 类 型 为 numeric 型 和 string 型 ， 它 们 分 别 对 应 


于 值 0 和 值 1， 束 认 的 格式 数组 为 [! 器 
指定 读 操 作 人 终止 联 接 的 时 间 限 制 ，timeout 参数 用 毫秒 指定 (1000 毫秒 =1 秘 )。timeout 的 默 淮 值 为 3 秒 。 如 果 在 
taoeoul 毫 镍 内 湿 有 建立 则 visory 链接 ， 该 函数 失败 


下 夸 的 例子 建立 Excel 单元 范围 与 矩阵 之 间 的 热 链接 。 如 果 链 接 成 功 ， 则 显示 矩阵 ， 
TI = ddeadv(channel YIcl:r9cS disp(x 

先前 必须 已 经 用 ddeinit 命令 建立 起 了 与 Execel 之 同 的 通信 ， 

2. ddeexec 函数 

该 梢 数 发 送 要 执行 的 字符 串 ， 调 用 格式 为 ; 


Tc = ddeexecfchannel,command 7 








fc = ddeexec(channelcommand' item 
rc =ddeexec(channel'commandyvitem'timecut) 
ddeexec 函数 通过 已 经 建立 的 PDE 会 话 发 送 要 执行 的 字符 串 给 另 一 个 应 用 程序 。 将 该 字 
符 串 作为 command 参数 进行 指定 。 如 果 忽 略 不 在 参数 刻 表 来 尾 的 可 选 参数 ， 必 须 用 字 矩 阵营 
换 缺 失 参 数 。 如 果 成 功 ，ddeexec 在 变量 re 中 返回 1， 香 则 返回 0。 函数 参数 如 表 5-6 所 示 。 


表 5-6 参数 列表 
描述 





ddeinit 函数 建立 的 会 话 通道 

指定 更 执行 的 命 他 的 字符 下 _ 

指定 DDE 选项 名 称 ， 很 多 应 用 程序 不 需要 该 参数 。 如 果 需 要 盐 参 糙 ， 它 会 
提供 其 他 信息 给 sommand 参数 

指定 该 操作 终止 联接 的 时 间 厄 制 , timeout 参 数 用 毫 种 指定 [1000 豪 各 =1 移 )。 
tneout 的 默认 值 为 3 称 


下 面 的 例子 假设 已 经 建立 了 会 话 通道 ， 给 Excel 发 送 一 个 命令 。 


IC = ddeexec(channel'[formujagotof"rlclT7 


3.，dqeinit 函数 
该 函数 初始 化 PPE 会 话 ， 调 用 格式 为 ， 
channel=ddeinitf'service' topic') 
返回 分 配给 会 话 的 通道 ， 它 用 在 其 他 MATLAB DDE 函数 中 。'service 是 一 个 字符 串 ， 为 
会 话 指定 服务 或 应 用 名 。ftopic 为 指定 会 话 主题 的 字符 串 。 
下 商 的 例子 为 电子 表格 文件 'stocks.xls' 建 立 与 Excel 之 间 的 会 话 。 


channe] = ddeinitfexeel'stocks.xls' 
channel = 
0.00 





























4. ddepoke 函数 
该 函数 发 送 数据 给 应 用 程序 ， 调 用 格式 为 


有 中 生 。 


Tc = ddepokefchannelirerm data 
Tc = ddepokefchannel iem' data formmatb 
Tc = ddepokefchannel iterr:dataformatitimeout) 
ddepoke 函数 通过 已 经 建立 的 DPE 会 话 发 送 数据 给 应 用 程序 。ddepoke 朱 数 在 将 数据 矩 
阵 发 送 给 服务 器 程序 以 前 对 它 进 行 格式 化 ， 
字符 串 气 阵 逐 元 素 进 行 转换 为 字符 ， 发 送 生 成 的 符号 缓冲 区 。 
数值 矩阵 作为 列 用 表格 键 进 行 间隔 的 数字 进行 发 送 。 只 发 送 非 稀 朴 矩阵 的 实 部 。 
如 果 锦 略 不 位 于 参数 列表 末尾 的 可 选 参数 ， 必 须 用 空 告 阵 替 换 缺 失 参 数 。 如 果 成 功 ， 
ddepoke 函数 在 变量 re 中 返回 1， 和 骆 则 范围 0。 
参数 data 表示 包含 要 发 送 数据 的 矩阵 。 
下 血 的 例子 假设 已 经 用 ddeinit 函数 建立 了 JExeel 之 闲 的 会 话 通道 。 发 送 一 个 5X5 的 单 
位 矩阵 给 Excel， 将 第 1 行 第 1 列 到 第 5 行 第 5 列 的 数据 放 到 该 乍 阵 中 。 
rc =ddepoke(channel TIcl:rS5cS eyefS 让 ; 


5. ddereq 函数 
该 图 数 从 应 内 程序 请 求 数据 ， 调 用 格式 为 
data = ddereq(charmrtel, item 
data = ddereqfechanmnel,item',fonmnat) 
data = ddereq(channel,item' formattimeout) 
ddered 函数 通过 已 经 建立 的 PDDE 会 话 从 服务 器 应 用 程序 请 求 数据 。 该 函数 返回 一 个 包含 
请 求 到 的 数据 的 全 阵 ， 如 果 请 求 不 成 功 ， 返 回 一 个 空 矩阵 。 
下 面 的 例子 假设 有 个 Excel 电子 表格 文件 stocks.xls。 该 电子 表格 第 3 行 第 1-3 列 包 含 3 
种 股票 的 价格 ， 第 6 一 8 行 第 2 列 包 售 这 些 股票 的 持 股 数 。 用 下 面 的 谷 令 建立 与 Excel 之 间 的 
会 话 。 





Channe] = ddqeinitf'excel,stocks.xls 


DDE 函数 要 求 用 rey 个 形式 表示 Excel 的 电子 表格 。 用 Exce] 术语 表示 时 ， 价 格 位 于 
iclr3c3 中 ， 持 股 数位 十 r6c2:r8c2 中 。 
从 Excel 请 求 价 格 数据 ， 使 用 下 面 的 命令 行 ， 
brices = ddereqfciannelT3eT:r3c3 
Prices = 
42.50 15.00 了 8.8S 
用 下 面 的 命令 行 请 求 等 种 股票 的 持 股 数 ， 
shareg = dqereqfchannel，rGc2:T8c27 
Shares 一 
100.00 
500.00 
300.00 


6，dadeterm 函数 
使 用 该 函数 终止 DDE 会 话 ， 调 用 格式 为 ， 
rc=ddetermfchannel) 


输入 参数 为 ddeinir 函数 创建 的 DDE 会 话 通道 变量 。 该 函数 终止 该 会 话 。 返 回 值 re 等 于 


“97， 











0 时 表示 终止 失败 ， 等 于 1 时 表示 成 功 。 
下 面 的 例子 终止 先前 用 ddqeinit 建立 的 会 话 通 道 。 
fc = ddetermfchanne]) 
的 1.00 


7.、ddeunadv 数 
该 函数 释放 adviscry 链接 ， 调 用 格式 为 ; 
IC = ddqdeunadyfecharinel en 
ie = ddeunadv(ehannel iem'fonmnat 
fc = ddeunadv(tchannel im ,formattimeout) 
ddeunadvy 函数 释放 MATLAB 与 前 面 通过 ddeady 函数 建立 的 服务 器 程序 之 间 的 热 链接 。 
chanmelitem 和 format 必须 与 调用 ddeadv 函数 时 指定 的 相同 。 如 果 包 含 timeout 参数 ， 但 接受 
的 认 的 format 参数 ， 必 须 将 format 参数 指定 为 字 和 阵 。 
如 果 成 功 ，ddeunady 冰 数 在 变量 灾 中 返回 1， 否则 返回 0， 
下 面 的 例子 释放 前 面 用 addadv 建立 的 advisory 链接 。 
I = ddeunadvfehannel, TIcl'rSc57) 


Te 一 


1.00 





5.3.2 DDE 提示 链接 


当 服 务 器 端的 数据 已 经 改变 时 ， 使 用 DDPE 通知 客户 端 应 用 程序 . 例如， 使 用 MATLAB 
分 析 Bxcel 电子 表格 中 的 数据 , 同样 可 以 通过 建立 链接 来 用 新 的 或 经 过 更 改 的 电子 表格 数据 自 
动 更 新 矩阵 。MATILAB 支持 两 种 提示 链接 ， 即 热 链接 和 暧 链接 ， 它 们 通过 服务 器 端 应 用 程序 
提示 的 方式 来 进行 区 分 。 

。 热 链接 使 数据 根据 项 目的 改变 来 定义 时 ， 让 地 务 器 端 给 MATLAB 提供 数据 ， 

*。 暧 链 接 在 数据 改变 但 只 在 MATLAB 请 求 时 提供 数据 的 情况 下 让 服务 回 端 给 MATLAB 
提供 数据 。 

用 ddeady 和 ddeunady 珊 个 函数 安装 和 印 载 提示 链接 。MATLAB 只 在 它 是 客户 庙 的 时 候 
支持 链 毛 。 





# 划 吕 。 





第 6 章 “COM 编程 


组 件 对 象 模型 〈“Component Object Model，COM) 是 一 系列 面向 对 象 技 术 和 工具 的 集合 。 
使 用 该 集合 ， 软 件 开 发 人 员 可 以 用 不 同 厂商 提供 的 组 件 集 成 他 们 自己 的 应 用 程序 。MAILAB 
提供 了 COM 支持 , 使 得 可 以 交互 处 理 控件 或 服务 器 进程 , 或 者 将 MATILAB 作为 计算 服务 器 ， 
用 客户 应 用 程序 进行 控制 。 





6.1 MATLAB COM 和 集成 简介 


COM 提供 了 将 可 重用 的 二 进 制 组 件 集成 为 应 用 程序 的 框架 。 组 件 是 用 编译 后 的 代码 实现 
的 ， 所 以 其 源 代码 可 以 用 任何 支持 COM 的 程序 语言 编号。 组件 使 得 应 用 程序 的 更 新 简化 了 ， 
因为 使 用 组 件 不 需要 重新 编译 整个 程序 。 另 外 ， 对 于 应 用 程序 来 说 ， 组 件 的 位 置 是 透明 的 ， 
所 以 可 以 在 不 修改 应 用 程序 的 情况 下 将 组 件 重新 部 署 到 单独 的 进程 甚至 远程 系统 。 

使 用 COM, 开发 者 和 终端 用 户 可 以 选择 不 同 厂商 提供 的 组 件 并 将 它们 集成 到 一 个 完整 的 
应 用 程序 由。 例如， 一 个 单独 的 应 用 程序 可 能 需要 实现 数据 库 访问 、 数 学 分 析 和 商业 质量 图 
形 表示 等 功能 。 使 用 COM， 开 发 人 员 可 以 选择 某 广 商 提 供 的 数据 库 访问 组 件 ， 另 一 厂商 提供 
的 商业 图 形 组 件 ， 然 后 将 它们 集成 到 一 个 数学 分 析 软 件 包 中 ， 当然 ， 这 个 数学 分 析 模 块 也 可 
以 用 某 个 三 商 提 供 的 组 件 来 实现 。 


6.1.1 概念 和 术语 
在 学 习 COM 编程 知识 以 前 ， 了 解 和 理解 相关 概念 和 术语 是 必要 的 ， 也 是 很 重要 的 。 


1， COM 对 象 

COM 对 象 是 组 件 对 象 类 或 组件 的 实例 。COM 强制 完成 对 象 的 封装 ， 以 防止 组 件 的 数据 
和 实现 被 直接 访问 。 对 象 的 方法 必须 通过 接口 来 访问 。COM 对 象 运行 在 服务 器 应 用 程序 上 ， 
该 服务 器 应 用 程序 被 一 个 或 多 个 客户 端 应 用 程序 所 控制 。 


2， 程 序 标识 符 

从 MATLAB 内 部 创建 COM 组 件 的 实例 时 ， 需 要 用 组 件 的 程序 标识 符 ， 或 ProgID 引用 
它 。ProgID 是 组 件 提 供 商定 义 的 字符 串 ， 用 于 惟一 定义 特定 COM 组 件 。 可 以 从 厂商 提供 的 
文档 中 获取 该 标识 符 。MATLAB 的 ProgID 为 matlab.application。 


3.， 接口 

可 以 通过 接口 访问 COM 对 象 的 属性 和 方法 。 实 际 上 ， 访 问 COM 对 象 内 部 的 惟一 途径 也 
就 是 它 的 接口 。 接 口 不 包含 任何 方法 的 实现 ， 它 只 是 作为 指针 指向 对 象 内 部 的 方法 。 

接口 通常 将 遥 辑 上 相关 的 方法 组 合 在 一 起 。 一 个 对 象 可 以 ， 而 且 常 常 提供 多 个 接口 。 为 
了 使 用 COM 对象， 必须 知道 它 支持 什么 接口 ， 以 及 该 对 象 实现 的 方法 、 属 性 和 禄 件 。 组件 常 
会 提供 这 些 信息 。 














对 日 w 


4. |IUnknown、IDispatch、 定 制 和 双重 接口 

COM 对 象 的 基本 接口 类 型 包括 ; 

s JIUnknown 接口 : 基本 的 工业 标准 接口 ， 要 求 所 有 COM 对 象 都 有 该 接口 。 所 有 其 他 接 
口 都 是 从 该 接口 衍生 而 来 的 。 

s IDispatch 接口 ， 工 业 标 准 接口 ， 它 采用 较 小 的 国 数 集 来 获取 COM 对 象 的 属性 和 方法 
的 信息 并 访问 它们 。 

e 定制 接口 ， 自 定义 的 接口 ， 人 允许 客户 更 直接 、 更 快 地 访问 最 务 器 对 象 的 属性 和 方法 。 

s# 双重 接口 :双重 接口 是 IDispatch 接口 和 定制 接口 的 组 合 。 


5 ActiveX 控件 

ActiveX 控件 是 一 种 组 件 ， 该 组 件 的 用 户 接口 使 它 可 以 对 用 户 的 行为 作出 响应 。 例 如 , 一 
个 有 “OK” 和 “Cancel” 按 钮 的 窗口 可 以 用 控件 实现 。 控 件 在 它 的 客户 应 用 程序 的 进程 地 址 
空间 中 和 运行。 该 客户 应 用 程序 曾 被 称 为 控件 容器 ， 因 为 它 包 含 控 件 。 

客户 应 用 程序 可 以 直 捷 访问 控件 的 方法 和 属性 。 控 件 也 必须 能 铝 向 客户 端 回 传 入 息 。 这 
使 得 它 可 以 通知 客户 应 用 程序 ， 有 事件 发 生 了 ， 例 如 发 生 了 鼠标 单 击 事件 . 


6.， 进程 内 和 进程 外 服 务 器 

可 以 将 服务 器 设 定 为 下 面 三 种 方式 中 的 一 种 。MATLAB 支持 所 有 这 三 种 方式 。 

。 进程 内 服务 器 ， 用 动态 链接 库 (DLL) 或 ActiveX 控件 实现 的 组 件 ， 与 客户 程序 运行 
在 相同 的 进程 中 ， 共 享 同一 地 址 空间 。 这 一 特点 使 得 客户 端 和 服务 器 端的 通信 相对 简单 ， 并 
且 快 速 。 

sa 本 地 进程 外 服务 器 : 用 可 执行 程序 〈.exe) 实现 的 组 件 。 该 可 执行 程序 运行 在 单独 的 
进程 内 ， 与 客户 程序 的 进程 不 同 ， 但 客户 程序 和 服务 器 程序 的 进程 位 于 相同 的 计算 机 系统 中 。 
这 种 设置 方式 比 进程 内 的 设置 方式 慢 一 些 ， 因 为 跨 进 程 传 递 数 据 需 要 一 些 消耗 。 

。 远程 进程 外 服务 器 ;这 是 进程 外 服务 器 的 另 一 种 类 型 。 在 这 种 类 型 中 ， 客 户 和 服务 器 
进程 处 于 不 同 的 系统 上 ， 通 过 网 络 进行 通信 ， 加 上 路 进程 传递 数据 的 消耗 ， 这 种 设置 方式 的 
速度 最 慢 ， 只 能 在 支持 分 布 式 组 件 对 象 模 型 (DCOQOM) 的 系统 上 使 用 这 种 设置 方式 。 


6.1.2 支持 的 客户 /服务 器 设置 


可 以 将 MATLAB 设置 为 控件 ,或 用 其 他 COM 组 件 进行 控制 .MATLAB 控制 其 他 组 件 时 ， 
MATLAB 是 客户 ， 其 他 组 件 是 服务 器 ，MATLAB 被 其 他 组 件 控制 时 ， 它 充当 服务 器 。 

MATLAB 支持 4 种 不 同 的 COM 客户 /服务 器 设置 方式 ， 包 括 ; 

# MATLAB 客户 和 进程 内 服务 器 ; 

e MATLAB 客户 和 进程 外 服务 器 ; 

se 客户 程序 和 MAFLAB 自动 化 服务 器 ; 

e 客户 程序 和 MAFLAB 引擎 服务 器 。 


1 MATLAB 客户 和 进程 内 服务 器 

如 图 6-1 所 示 ，MATLAR 客户 应 用 程序 与 用 ActiveX 控件 或 动态 链接 库 〔〈DLL) 实现 的 
组 件 进 行 变 互 。 服 务 器 与 客户 运行 在 同一 进程 中 ， 并 共享 同一 地 址 空间 。 在 客户 和 服务 器 之 
间 通 信 很 快 ， 因 为 在 同 - 进程 内 传递 数据 消耗 很 小 ， 




















100 。 





图 攻 1 网 ATLA 区 讲 卢 与 二 程 册 昌 苦 骸 十 依 


根据 组 件 实现 的 接口 类 量 ， 服 务 器 通过 IDispateh 接口 或 定 制 接口 提供 其 赂 性 和 方法 ， 

actiyeX 控件 通常 是 有 半 种 图 形 用 疡 界 而 的 对 瘟 ，MATLAB 在 服务 昧 中 人 鸭 建 控件 时 ， 炮 
撞 件 的 GUI 故 在 MATLAB 余 形 窗口 中 ， 使 用 户 可 以 与 它 进 行 变 直 。 通 过 单 击 用 户 界 而 上 的 
不 同 选项 ， 可 以 裔 发 相应 的 事件 。 补 户 确 定 鉴 生 不 同事 件 时 如 何 响应 并 作出 相应 的 史 应 ， 

MATLAB 首 己 帮 了 一 个 简单 的 ActiveX 控件 合子 ， 它 在 研 幕 上 面团 ， 星 示 一 些 文本 。 可 
以 用 该 拉 件 做 一 些小 试 骆 ， 

任何 已 经 用 动态 链 搂 库 记 现 的 COM 望 件 也 树 始 化 为 进程 内 服务 器 。 即 与 MATLAB 资产 
程序 在 相同 的 进程 中 创建 ， 与 控件 不 同 ，DLL 报 务 回 运行 在 单独 的 窗口 中 ， 而 机 是 MATLAB 
图 形 窗口 中 ， 

MATLAB 对 DLL 服务 器 生成 的 事件 的 响 座 方 式 与 AetiveX 控件 的 相同 。 

2，MATLAB 客户 和 进程 外 服务 器 

这 种 设置 方式 卡 ，MATLAB 客户 应 用 程序 与 守 现 为 可 执行 立 件 的 组 伴 进 行 交 互 。 读 可 执 
本 组 件 在 服务 内 中 进行 初始 化 ， 服 务 器 与 客户 程序 运行 在 各 自 的 进程 中 。 因 为 跨 进程 传递 数 
措 ， 这 种 设 沁 方 臣下 的 速度 棍 一 些 。 常 用 的 Excel 和 Wand 等 可 以 看 作 杯 地 服务 可 ， 

通信 机 制 如 图 和-2 所 示 。 国 为 客户 程序 和 服务 莫 运 行 在 音 独 的 进程 中 ， 可 以 在 同一 网 络 
中 的 任何 钞 线 上 创建 服务 器 。 远 程 服务 器 只 在 支持 DCOM 的 环境 中 设置 


本 可 站 ET 中 并 国 
[ 吕 iiash 矶 证 柄 机 器 





国 丰 3 全 ATLAR 过 访 和 谴 查 林 腿 务 蝶 前 通 情 
好 旺 组件 担 人 性 用 户 界面 ， 界 面 显示 在 单 镍 的 窗口 中 ， 


3. 害 户 程序 和 MATLAB 自动 化 胆 务 器 

在 这 种 方式 中 ，MATLAB 作为 自动 化 服务 器 进行 拖 作 。 性 何 可 以 作为 自动 化 控制 器 的 
Windows 程序 都 可 以 创建 和 控制 它 ， 通 信 机 制 丰 图 全 3 所 示 。 

可 作为 自动 化 掉 制 锋 的 应 用 程序 包括 Mierosaft Exeel.Microsoft AceesssWMicrosofr Project， 
以 及 狠 事 Visual Basic 和 Visual C++ 程序 。 

MATLAB 目 动 化 服务 器 的 功能 包括 在 MATLAB 工作 堂 间 中 执行 侧 夺 ， 并 直接 从 工作 室 
癌 获 收 虐 陈 和 将 给 阵 放 到 工作 室 间 。 可 以 用 共享 和 和 独占 模式 启动 MATLAB 服务 哑 ， 还 可 以 迭 
择 在 本 地 或 远程 系统 上 二 行 它 . 
COM 装 户 COM 剧 务 同 








图 拖 3 鸭 户 程序 和 MATTLAR 自动 化 康 和 器 的 箱 情 


幸 直 人 = 


从 二 应 用 程序 创建 MATLAB 服务 器 ， 使 用 麻 启 雪 的 音 适 函 败 束 楚 调 化 厄 务 内。 网 曙 ， 
可 以 使 用 Wieual Basic 中 的 CreateDbjecl 咀 数 ， 镁 序 标识 符 指 定 为 mutlabiagpplitsations。 用 竹 误 
醒 武 运行 MATLAB 服务 器 ， 指 定 标 说 符 为 mattah applicarion singje。 

国 建 MATLAB 服务 器 的 函数 喜 回 一 个 句柄 ， 利 用 这 个 句柄 ， 通 过 IDispateh 接站 可 以 请 
问 服 务 器 中 的 风 性 有 方法 。 

aq， 考 户 程序 和 MATLAB 引 萨 服务 咒 

MATLAB 为 C，CHH 吉 Fortma 六 写 的 客户 应 用 程序 提供 了 一 个 速度 更 快 的 定制 接口 
IEngine。 MATLAB 必用 IEngine 接口 室 现 客户 程序 和 MATLAB 引 瞧 服务 器 之 间 的 通信 ,通信 
栅 制 如 图 各 4 所 未 ， 


ON 过 户 EM 便 短 喇 





融 6 4 客户 怀 序 和 RATLABE 引 和 服 务 吴 之 癌 的 适 恒 


MATLAB 夫 供 了 引 警 函数 库 和 Fornn 引 澡 函数 库 ， 利 用 库 中 的 函数 可 以 启动 和 给 止 
服务 器 进程 ， 以 及 传 遂 MATLAB 处于 的 疝 令 。 


4413 广 册 控件 和 服务 器 


大 部 分 撞 件 和 服务 器 量 自动 往 册 的 。 但 是 ， 如 果 有 新 的 ,ocx , 岂 | 或 其 他 控件 或 服务 吕 对 销 
误导 ， 必 交手 工 疆 册 这 些 去 性 ; 
使 用 DOg8 的 二 ESEVYra2 而 坟 在 如 indaws 注册 表 中 注册 对 铺 误 件 1 即 .acex 文件 )， 在 DOS 
便 李 行 中 ， 用 唔 函数 进 入 ocx 立 忻 所 在 的 目录 ， 埋 使 用 下 面 的 语 社 
LE 
例如 ， 狂 山 根 各 MATLAB 文档 中 加 使 用 了 的 mwsamp2oex 文件 ， 刍 从 
记性 可 玫 人 3 卫 1 丰 十 下 亲 | 闻 了 .OCS 
下 面 几 种 广 尘 可 以 确认 控件 或 服务 如 是 理 已 仅 注 册 ( 用 MATLAB 的 mwsamp 控件 作为 例 
也。 
s 在 Micmsoft Wisual CHHMSVC) 60 炉 程 环境 中 技 到 工具 菜单 ， 执 行 ActiveX 控件 测试 
认 器 。 单 击 “Edtt” 按钮 ， 擂 和 新 控件 ， 航 后 选择 “MwsSarmp Conrol 选项 。 嫩 果 捕 大 粹 件 
没有 发生 问 题 。 说 明科 件 已 经 注册 成 功 了 。 广 意 ， 这 种 方法 只 朵 于 控件 ， 
sa 在 DOS 调和 专 行 中 键 人 egedit， 打 升 注册 表 坊 办 由， 炬 后 可 以 从 “Edit 莫 昔 中 选择 
“Find" 选项 ， 搜 索 掉 件 或 服务 器 对 龟 。 它 具有 类 似 下 面 的 结构 
HKEY_CLASSES_ 民 DOTiprotid 
s。 从 MSVC60 的 工具 菜单 中 打开 OLE 察看 由, 你 的 掉 件 对 象 应 该 具有 类 似 下 面 的 结 村 。 
侣 bjeef ClassE6 GODEHby ComFPonenit 忆 aeBorY Control : 
Wi_Control_Object Name 由 人 jeetCIRSE 人 人 EPEed by 
ComipoaemCaiegorm :ontrol: wearmPConinol 


二 直 本 了 

















6.2 MATLAB COM 客户 支持 


本 节 介 绍 用 于 创建 、 操 作 和 销毁 COM 入 件 和 服务 器 对 象 的 MATLAB 函数 。 这 些 对 象 是 
MATLARB COM 类 的 实例 。 


6.2.1 创建 服务 器 进程 
MAILAB 提供 了 2 个 函数 ， 让 COM 客户 在 服务 器 进程 中 创建 COM 组 件 的 实例 ， 


1.， actxcontrol 函数 
该 末 数 在 当前 图 形 窗 口中 创建 ActiveX 控件 ， 调 用 司 式 为 : 
=actxKcontrplfCPprogid 7) 
h=actxcontrot(CProgid , Position) 
h=actxcontrolg progid ,Position, 三 g_ handle) 
h=actxcontrol( progid , position, fig_handle, event_handler) 
h=actxeontrolfCprogid , position, 各 gE_handle, event handlen 下 lenarme7) 

e _h=actxcontrolfprosid]: 在 图 形 窗 口中 创建 一 个 ActiveX 入 件 。 所 创建 控件 的 类 型 由 字 
符 串 progid 确定 ,progid 是 控件 的 程序 标识 符 (ProgID)。 返 回 的 对 象 h 表示 控件 的 默认 接口 。 

# h=actxcontrolf'progid', positiom: 创建 Active 控件 ,其 位 置 和 大 小 由 矢量 position 指定 。 
该 矢量 的 格式 为 : 

区 了 width height] 

天 量 的 前 两 个 元 素 确 定 控件 在 图 形 窗 口中 的 位 置 ,x 和 Yy 为 控件 左下 和 解 相对 于 图 形 窗 口 左 
下 角 的 偏 穆 距离， 单位 为 像素 。 后 面 两 个 元 素 确定 控件 的 宽度 和 高 度 。position 矢量 的 默认 值 
为 f20 20 60 的 ]， 

后 h=actxcontrol(progid，position， 节 gE_handle): 在 已 经 存在 的 异形 窗 口中 ， 在 指定 位 置 
position 处 创建 一 个 ActiveX 入 件 。 该 图 形 窗 口 用 句柄 图 形 对 象 fig_ handle 表示 。 默 认 的 图 形 
句柄 为 gcf。 

# hh=actxcontrolfprogid', positiom, 和 eg _ handie, event_ handlen; 创建 一 个 响应 事件 的 ActiveX 
控件 ， 不 管 什么 时 候 触发 事件 时 ， 辉 件 通过 调用 一 个 M 文件 函数 来 响应 事件 。 

e hbh=actxcontrol(progid', position, 丰 g_handle, event_hanler filename)， 用 前 4 个 参数 创建 
ActiveX 控件 ， 将 它 的 初始 状态 设置 为 与 前 面 保 存 的 控件 的 一 样 。MATLAB 从 如 ename 指定 
的 文件 中 载 入 初始 状态 。 如 果 不 想 指定 事件 控制 器 参数 event_handler， 可 以 用 空 矩 阵 作为 第 4 
个 参数 。progid 参数 必须 与 所 保存 的 控件 的 progid 相 匹配 ， 

event_handilet 参数 有 多 种 合法 格式 ， 用 该 参数 指定 下 面 类 型 中 的 一 种 ， 

> 为 控 性 支持 的 每 个 事件 指定 一 个 不 同 的 事件 控制 过 程 ; 

> 指定 一 个 公共 过 程 来 控制 选 定 的 事件 

> 指定 一 个 公共 过 程 来 近 制 所 有 事件 。 

对 于 第 一 种 情况 ， 用 一 个 单元 数组 作为 event_handler 参数 的 值 ， 数 组 的 每 一 行 指定 一 个 
事件 /控制 函数 对 。 

{event 'eventhandler ;event2 eventhandler2 


event 可 以 是 包含 事件 名 称 的 字符 囊 ， 或 者 作为 事 忻 标识 符 的 数值 值 ，eventhandler 是 控 
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件 用 于 控制 事件 时 识别 M 文件 函数 的 字符 串 ， 只 包括 那些 要 起 作用 的 事件 。 
对 于 第 2 种 情况 ， 使 用 与 刚才 相同 的 单元 数组 语法 ， 但 是 给 每 个 事件 指定 柜 同 的 事 伯 控 


制 过 程 ， 还 只 包括 那些 要 起 作用 的 事件 。 
对 于 第 3 种 情况 , 使 event_handler 为 包含 控制 控件 所 有 事件 的 M 文件 孙 数 的 名 称 的 字符 


串 。 
在 eyent_handler 单元 数组 中 没有 限定 事件 /入 制 过 程 对 的 个 数 。 事 件 控 制 函 数 应 谅 接收 可 
变 的 参数 个 数 。evenr_handler 参数 中 使 用 的 字符 串 没 有 大 小 写 区 分 。 


2，actxserver 明 数 

该 国 数 创建 COM 目 动 化 服务 器 ， 调 用 格式 为 : 
h=actxserverfCprogid7 
h=actxservert Progid Systemname 


se h=acpxserverfrprogid]: 创建 -- 个 COM 服务 器 ,并 返回 表示 服务 器 默认 接口 的 COM 对 
象 h。prigid 为 组 件 在 服务 器 中 进行 实例 化 的 程序 标识 符 。 该 字符 串 由 控件 或 服务 器 程序 的 供 
虚 商 提供 并 且 可 以 从 供应 商 的 文档 中 获得 .例如 , MATLAB 的 progid 值 为 matiab.application。 

sh=aetxserver(progid ,systemname)， 创建 一 个 运行 在 远程 系统 上 的 COM 服务 器 ， 远 程 
系统 的 名 称 由 systemname 参数 指定 。 它 可 以 是 一 个 卫 地 址 或 DNS 名 称 。 只 在 支持 分 布 式 组 
件 对 象 模型 (DCOM) 的 环境 中 可 以 使 用 该 语法 。 

注音: 对 于 实现 为 动态 链接 库 的 组 件 ，actxserver 函数 创建 一 个 进程 内 的 服务 器 。 对 于 实 
现 为 可 执行 程序 的 组 件 ，actxserver 创建 一 个 进程 外 的 服务 器 。 进 程 外 服务 回 可 以 在 客户 系统 
或 支持 DCOM 的 网 络 上 的 任何 其 他 系统 上 创建 

如 果 榨 件 实现 了 任何 自 定义 接口 ， 使 用 interfaees 函数 列 出 它们 ， 并 用 invoke 函数 获取 选 
定 接口 的 名 枉 。 具 前 不 支持 从 自动 化 服务 器 创建 的 事件 。 


6.2.2 创建 ActiveX 控件 

可 以 用 图 形 用 户 界 面 或 直接 从 命令 行 用 actxeontrol 函数 从 MATLAB 客户 端 创建 ActiveX 
控件 。 这 两 种 方法 部 在 MATLAB 客户 进程 中 创建 控件 的 一 个 实例 ， 并 给 COM 对 象 的 主 接口 
返回 一 个 句柄 。 然 后 ， 通 过 该 接口 获取 对 象 的 所 有 属性 或 方法 。 还 可 以 创建 额外 的 接口 给 对 
象 ， 包 括 使 用 IDispatch 和 任何 定制 接口 的 接口 。 

本 小 节 介绍 如 何在 客户 进程 中 创建 控件 , 以 及 如 何在 MATLAB 图 形 窗口 中 放牧 它 的 图 形 
界 曾 。 


1， 起 找 已 经 安装 的 控件 
使 用 actxcontrollist 函数 可 以 查看 系统 上 当前 安装 的 COM 控件 。 键 入 
jist=actxcontrollist; 
MAILAB 返回 每 个 控件 的 列表 ， 包 括 输出 的 单元 数组 中 的 名 称 、 程 序 标识 符 〈 或 ProgID) 及 
文件 名 。 
下 面 是 - - 些 控件 可 能 返回 的 信息 的 示例 ; 
list = actxcorttrollist 


fork= 114:115 
S=sprintff Name= 的 sw Prog[D = 中 SFiie= 站 Btast 


end 


= DOd4。 


本 写 
林寺 三 waittp2 OSITG| 
rel = 网 WSIMAWEEmIPCI 二 
条 中 豆 弛 4 承 和 下 才 放 | 于 RI 术 了 AGE 


ae 吾 的 本 ell 齐 直 而 利 地 下 二 宙 让 
加 = RE 和 eta. 上 
古村 =CWWINNTSYaemG2Uaseoafdll 
2， 用 图 形 界面 创建 控件 对 象 
剖 建 控件 对 象 最 简单 的 方法 是 使 用 actxeantrolselect 函数 ,该 函 数 显示 一 个 图 形 用 疡 排 面 ， 
其 中 列 册 了 安装 在 系统 上 的 所 有 控件 ， 如 图 合 5 所 示 。 从 列表 由 选择 一 个 元 项 井 单 击 ”“Creale 
伎 钮 ，MATLAB 在 图 形 窗 口中 创建 该 控件， 





界面 中 ， 左 但 有 一 个 选 拓 面板 ， 吉 侧 有 一 个 预览 面板 ， 单 击 选择 面板 中 的 控件 名， 会 在 
书 鉴 面板 中 显示 该 控件 的 外 观 。 如 果 读 掉 件 没有 倾 览 ， 则 志 鉴 面 版 为 室 。 如 果 MATLAB 不 能 
世 建 控件 ， 则 预览 面板 中 显示 一 个 出 错 消 奶 ， 

单 击 窗口 中 的 “Propertiea” 按钮 ， 航 后 可 以 在 打开 的 唱 性 复 口 中 设置 控件 的 各 种 赂 性。 
可 以 移 择 熔 伞 放 在 是 个 图 此 午 口中 [Parent 文本 棋 ) 放 在 窗口 中 的 什么 位 置 { 巧 和 站 文本 杠 六 
以 及 控件 的 大 小 【Width 和 Heighl 京 本 框 )， 

证 可 以 注册 任何 事件 ， 间 用 它们 久 制 各 种 响 亡 。 通过 在 “Callback M-EFile” 下面 事件 的 市 
侧 幅 入 过 程 名 ， 可 以 注册 事件 和 回调 过 程 来 控 一 访 事 御 ， 

证 可 以 通过 浏览 备 自 的 M 文件 来 选择 回调 过 程 。 单 击 “Evenr Names” 歼 中 的 和 名称， 然后 
单 击 “Brawse” 技 钮 来 选 撞 该 事件 的 回调 。 和 将 一 个 回调 过 程 指定 给 专 个 事件 ， 技 佳 Cu 鲜 并 
单 击 事件 名 ， 或 者 在 事件 名 上 连续 拖 拉 芯 标 ， 厚 后 单 击 "Browse” 按 刍 来 选择 回调 过 程 ， 

MATLAB 只 对 屠 些 福 了 册 的 事件 作出 响 庶 ， 所 以 任何 设 有 在 “Callback NM-File” 中 指定 
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回调 M 误 忻 的 事件 将 被 思 略 ， 

在 Seleetin AEtveX Control 窗口 中 遂 择 “Calendar Control T00"， 单 击 “Hroperies” 寺 悍 
查看 转世 6 显示 的 窗 日 。 在 “Width” 文本 框 中 输入 300， 在 “Height” 嘉 本 眶 中 师 关 30， 改 
大 撞 体 的 对 认 大 小 。 单 击 “DOMKY 技 钮 ， 航 后 在 actxeontrolselect 价 口 中 单 击 “Craate” 按 所 ， 
创建 日 历 控件 ， 





本 有 6 设置 目 历 斥 虱 的 礁 昔 
还 可 以 用 actkcoatrol 函数 设置 控件 参数 ， 有 一 个 参数 可 以 用 actxeontrol 设置 ， 但 不 能 用 
artcoatmolselest 设置 ， 它 是 杞 络 化 训 件 的 和 名称。 指定 该 妇 件 名 时 ，MATLAB 将 控件 的 接手 状 
毒 讼 置 为 先 临 保存 的 控件 的 类 壹 ， 
actxeontolaesjlect 函数 创建 MATLAB COM 类 的 实例 对 象 。 该 函数 最多 有 返回 2 个 输出 参 监 : 
对 意 的 各 柄 和 一 车 13 的 单元 数组 ， 数 组 中 包 言 控件 的 有 关 信 息 。 它们 分 别 用 h 和 训 旬 表示 ， 
[ii 语 铝 ] = Wetweaomirolseleett 
调用 其 他 MATLAB COM 函数 时 使 用 名 桐 识 别 这 个 特定 接 件 对 象 。 单 元 数组 中 返回 的 信 
息 星 示 了 控件 的 名 称 ，FeogiD 和 文件 名 。 
面 音 选择 Calendar Controls0， 贱 司 昔 击 “Crenale” 接 乌 ，WMATLAAHB 研 回 卡 面 的 居 息 ; 
币 王 
ORGECaLENIndarT 了 
语 了 机 三 
ha MBSCALCaEnaEH dckarl 
扩展 info 单元 数 蛆 ， 显 示 控 件 的 名 称 ，ProgID 和 文件 名 。 
时 | 


3， 从 命令 行 创 建 控 忻 对 烛 

如 重量 遭 使 用 哪个 柠 件 埋 且 知道 它 的 ProgID 值 ， 可 以 用 actxeontrol 函数 创建 它 。 奋 用 和 读 
函数 需要 的 输入 参数 只 有 ProglD. 但 是 ， 像 使 用 aetXcoatrnlseleet 一 样 ， 也 可 以 提供 其 他 和 输入， 
使 得 可 以 选择 掉 件 显示 在 哪个 图 形 窗 口中 ， 放 在 窗口 中 的 哪个 位 置 ， 以 及 控件 的 去 小 是 赦 少 
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等 。 也 可 以 注册 事件 ， 或 设置 控件 的 初始 状态 。 
actxcontrol 函数 返 问 对 象 的 句柄 。 进 行 其 他 函数 调用 时 用 该 句柄 引用 对 象 。 还 可 以 用 该 句 
柄 获取 对 象 的 其 他 接口 。 
下 面 的 例子 创建 一 个 控件 来 运行 Microsoft Calendar 应 用 程序 , 将 该 控件 放 在 图 形 窗口 fg3 
中 ， 原 点 位 置 为 [0.0]， 寓 度 为 300， 高 度 为 400， 单 位 为 像素 。 
下 83 = figurefPosition [SS0 50 600 50017 
h = acEKcontrolfmscalcalendar, [0 0 300 400], fg3) 
h = 
COMmscal.calendar 


4， 重 新 设置 控件 在 图 形 窗口 中 的 位 置 
创建 控件 以 后 ， 可 以 用 moeve 函数 改变 它 在 窗口 中 的 大 小 和 位 置 。 对 于 上 耐 的 例子， 指定 
新 原点 的 位 置 为 (70,120)， 新 的 宽度 和 高 度 为 400 和 350。 
hmoveff70 120 400 350]):; 


6.2.3 创建 DLL 组 件 的 实例 


用 actxserver 函数 创建 动态 链接 库 实 现 的 服务 器 组 件 。MATLAB 在 包含 客户 应 用 程序 的 
进程 中 创建 组 件 的 实例 。 

与 DLL 组 件 一 起 使 用 时 ，actxsetver 玉 数 的 语法 格式 为 ; 

actXSelver(ProgID) 

其 中 ，ProgID 为 组 件 的 程序 标识 符 。 

actxserver 函数 返回 对 象 句 柄 。 使 用 该 句柄 , 可 以 在 进行 其 但 COM 阔 数 调用 时 引用 对 象 。 
也 可 以 使 用 句柄 获取 对 象 的 其 他 接口 。 

与 ActiveX 控件 不 同 ， 上 服务 器 显示 的 任何 用 户 界 面 出 现在 单独 的 窗口 中 。 


6.2.4 创建 EXE 组 件 的 实例 


使 用 actxserver 函数 ， 偿 可 以 创建 用 可 执行 程序 实现 的 服务 器 组 件 。 但 是 , 这 时 MATILAB 
是 在 进程 外 服务 器 中 创建 组 件 的 实例 。 
actxserver 函数 的 语法 格式 为 : 
actxsSetverProgID,sysSnarme) 
其 中 , ProgID 为 组 件 的 程序 标识 符 ，sysname 为 可 选 参数 , 用 于 注册 已 经 发 布 的 COM(DCOMD 
系统 。 
actxseltyver 函数 返回 对 象 句柄 .。 使 用 该 句柄 ， 可 以 在 进行 其 他 COM 函数 调用 时 引用 对 象 。 
也 可 以 使 用 句柄 获取 对 银 的 其 他 接口 。 
下 面 的 例子 创建 一 个 运行 Excel 的 COM 服务 器 应 用 程序 ， 返 回 的 句柄 赋 给 h。 
四 = actserver(excel,application7) 
h = 
COM.excelapplication 


6.2.5 访问 对 象 的 接口 
COM 组 件 可 以 提供 不 同类 型 的 接口 来 访问 对 象 的 公共 属性 和 方法 。 
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1，IUnknown 和 IDispatch 
调用 actxserver 或 actxcontrol 国 数 时 ，MATLABS 创建 服务 器 并 返回 向 柄 。MATLAB 按照 
下 面 的 规则 确定 返回 哪个 句柄 。 
s 首先 获取 组 件 IUnknown 接口 的 句柄 。 所 有 COM 组 件 必 须 至 少 实现 这 个 接口 。 
es 然后 MATLAS 试图 从 组 件 那里 蓝 得 IDispatch 接口 。 如 果 组 件 中 实现 了 IDispatch 接口 ， 
MATLAB 返 团 该 接口 的 句柄 。 如 果 没 有 实现 该 接口 ，MATLAB 返回 IUnknown 接口 的 句柄 。 
组 件 常 常 基于 IDispatch 接口 提供 其 他 接 忠 ， 它 们 作为 属性 实现 。 与 其 他 属性 一 样 ， 可 以 
用 MATLAB 的 get 函数 闭 取 这 些 接口 中 的 任何 -- 个 
例如 ，Microsof Excel 组 件 包 含 多 个 接口 ， 可 以 用 不 带 任 何 参数 的 get 函 数 ， 把 这 些 接口 
与 其 他 Excel 属性 列 在 -~ 起。 
= artgserverfexcelapplicanon'; 
和 get 
点 pplication: [1xl Interface.Microsoft_Excel 9.0_ 
Object_Library， 上 pplication] 
(CTeator: CreatorCaode' 
Parent': [1x1l Interface.Microsof Excel 9 
Object_Library._ 上 pblication] 
点 ctiveCelj: 口 
AcfiveChart: [1XS0 char] 








为 了 获取 指定 接口 的 锅 ， 在 下 面 的 例子 中 指定 一 个 对 和 象 或 接口 的 向 柄 h， 以 及 目标 接口 
的 名 称 Workbooks。 


由 二 上 WODIKbooks 
锅 王 
Interfase.Mijcrosof_ Excel_9.0_Object_Library Workbooks 


2， 定 制 接口 
下 面 两 种 服务 器 /窗户 设置 方式 还 支持 组 件 中 可 能 实现 的 定制 接口 
。 MAILAB 客户 程序 和 进程 肉 服务器; 
* MAILAB 客户 程序 和 进程 外 服务 器 。 
创建 服务 器 以 后 ， 可 以 查询 服务 器 组 件 ， 看 是 否 实现 了 某 些 定制 接口。 使 用 interfaces 本 
数 返 回 所 有 可 以 获得 的 定制 接口 的 列表 。 该 列表 在 一 个 字符 串 单元 数组 中 返回 。 
Ph = actxserverf mytestenv.calctltater 
h = 
OOMLEYtestenw Calcadator 


&nstomlist = hintetrfaces 
&Hstormilist 二 

Jealcl1 

ICalez 

Ialc3 


要 获取 指定 定制 接口 的 句柄 ， 用 invoke 函数 指定 actxcontrol 或 actxserver 返回 的 句柄 ， 
以 及 定制 接口 的 名 称 。 
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cl = hinvokefTICalcl 
Cl = 
JInterface.Caic_1.0. Type_Library.ICalc_Interface 


现在 可 以 将 这 个 句柄 与 大 部 分 COM 客户 函数 -起 使 用 , 并 通过 选 定 的 定制 接口 访问 对 象 
的 属性 和 方法 ， 
例如 ， 列 出 通过 ICalel 接口 获得 的 属 忻 ， 使 用 下 面 的 语句 。 
CT ,eet 
backegrounq: 'BJue' 
height: 10 
width:0 
列 出 方法 ， 使 用 下 面 的 语句 。 
cl.invaoke 
add = double Addfhandle, double, double) 
Divide = aonble Dividethandlg, doubie, double) 
Rultiply = double Multiplythangle, double, double) 
Subtract = double Subtractthandle, double. double) 
下 面 用 定制 接口 cl 的 Add 和 Mnultiply 方法 实 班 数 字 的 相 加 和 相 租 。 


Sr 二 己 1 .上 4( 填 ,7 
SUIm = 
11 


prod = clMuliply(4, 7) 
prod= 
28 


6.2.6 调用 COM 对 象 的 命令 


调用 COM 对 象 的 MATLAB COM 函数 或 方法 时 ， 最 简单 的 语法 是 使 用 点 语法 。 指 定 对 
银 名 ， 点 (] 和 正在 调用 的 函数 或 方法 的 名 称 。 将 输入 参数 包括 在 函数 名 后 面 的 小 括号 中 。 在 
等 号 左 侧 指定 箱 出 变量 。 即 

Outbutvalue = Objectfunctionfarg1, arg2.…) 


1 调用 语法 示例 
使 用 本 实例 ， 首 先 要 创建 一 个 名 为 mwsamp 的 ActiveX 控件 。 调 用 actxcontro]l 函数 创建 
mwsamp 控件 。 该 函 歼 返回 句柄 h， 后 面 将 要 使 用 它 。 
Ph = actxcontrollrmwsamp.zmwsampctl2 [1200 120 200 200]); 
得 到 双 象 的 句柄 以 后 ， 就 可 以 通过 它 调用 对 象 的 函数 。 下 面 的 滞 句 用 点 语法 调用 
addpbroperty 函数 。 调 用 时 需要 传递 一 个 输入 参数 ， 即 字符 串 'Position'。 
haddpropertyfCPosition 
下 面 是 其 替代 语法 。 以 前 诸 版 本 都 使 用 这 种 语法 ， 
addpropertyfh，Position 7); 
现在 MATLAB 对 这 两 种 命令 形式 都 支持 。 


2. 指定 属性 、 方 法 和 事件 名 
可 以 下 面 的 形式 指定 属性 名 和 方法 名 。 


了 人 DO 。 





handle.propertyname 
handle.methednarme 
例如 ，mwsamp 对 象 有 一 个 表示 圆 半径 的 Radius 属性 ， 一 个 重 绘 圆 形 的 Redraw 方法 。 通 
过 键入 下 面 的 命令 行 获 得 圆 的 半径 。 
h.Radius 
用 下 面 的 语句 重 绘 殴 。 
了 .Redrawr 
只 要 能 够 将 属性 名 与 其 他 属性 的 区 分 开 ， 可 以 缩写 属性 名 。 属 性 名 也 没有 大 小 写 区 分 。 
下 面 两 条 语句 生成 相同 的 结果 。 
X = 和 h.Radius 
民 =] 
方法 名 不 能 缩写 ， 
事件 名 总 是 用 函数 参数 中 带 单 引 号 的 字符 串 指定 的 。 事 件 名 必须 输入 完整 ， 但 没有 大 小 
写 区 分 。 下 面 的 语句 生 成 同样 的 结果 。 
hregisterevyenttf MeouseDown mymousegd ]); 
h.registerevent(T MOUSEdown myMOUSEd ]); 


3， 隐 式 调 用 getiset 和 invoke 函数 
调用 COM 对 象 的 geb set 或 invoke 函数 时 ，MATLAB 提供 了 更 简单 的 语法 形式 。 该 语法 
形式 不 需要 显 式 的 函数 调用 。 除 了 极 少数 情况 外 ， 都 可 以 使 用 这 种 更 简短 的 说法 形式 。 
继续 使 用 mwsamp 控件 。 使 用 下 面 的 语法 ， 获 取 Radius 属性 的 值 并 将 它 赋 给 变量 x。 
MATLAB 仍然 调用 get 函数 ， 但 这 种 变 短 以 后 的 语法 更 容易 输入 一 些 ， 
芝 二 hh .Radius 
发 一 
20 
调用 set 和 inyoke 函数 时 也 可 以 使 用 这 种 缩写 的 语法 。 通 过 设置 圆 的 新 半径 和 调用 
mwsamp 对 象 的 Redraw 方法 放大 显示 融 来 比较 这 两 种 调用 方式 。 左 侧 的 命令 行 显 式 调 用 set 
和 invoke 函数 ， 石 侧 的 命令 行 隐 式 调用 它们 ， 
hsetf Radius 40); 四 Radius = 40; 
h.jnvoker 了 及 edraw ); h .Redraw; 


4. 不 能 使 用 隐 葡 语法 的 情况 

在 有 些 情况 下 ， 必 须 显 式 调用 gebset 和 invoke 函数 ， 包 括 ， 

e 属性 和 方法 非 公共 交 型 时 ， 

es 访问 带 参数 的 属性 时 ; 

es 操作 对 象 和 天 量 时 。 

如 果 要 访问 的 属性 或 方法 不 是 对 象 类 的 公共 属性 或 方法 ， 或 者 不 在 控件 或 服务 器 的 类 型 
库 中 , 则 必须 显 式 调 用 gebset 或 invoke 函数 。 例 如 , 正 浏 览 器 程序 的 Visiple 属性 不 是 公共 类 
型 的 ， 必 须 用 get 和 set 函数 进行 访问 。 

h = acSerYer(inteImeteXblorerapplcatiorny; 
中 下 面 的 语法 不 合法 ， 因 为 Wisible 属性 不 是 公共 的 
YY= h.Visible 
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?3293 Jo appropriate method cr Public field Visible forelass 
COM,intermetexplorer apblicaticn， 


中 必须 显 式 调用 get 果 数 
Y =h.get( Wisible ) 
可 一 


1 


%% 设置 非 公 共 属 性 时 同样 要 显 式 调用 set 函数 
h.setfwisibje，19; 
会 共 属 性 和 方法 可 以 通过 下 面 的 语句 获得 ， 
Publieproperties = hh .ger 
Publicmetheds =h.invoke 
有 些 COM 对 象 的 属性 有 参数 。 为 了 获取 或 设置 这 种 属性 的 值 ， 必 须 显 式 调用 get 或 set 
函数 ， 如 下 面 所 示 。 在 本 例 中 ，Al 和 HB2 为 指定 电子 表格 范围 的 参数 。 
eAcrivesheetRange 一 马上 ctivesheet get( 及 ange， 和 1 ，B21) 
eActivesheetRange = 
JInterface.Microsoft_Excel 5.0_Dbject_Library.Rarnge 
如 果 操 作对 象 矢量 ， 必 须 显 式 调用 gct 和 set 函数 来 访问 属 忻 。 下 面 的 例子 创建 一 个 包含 
2 个 Microsoft_ Calendar 对 象 句柄 的 失 量 。 然 后 通过 调用 set 函数 用 一 次 操作 修改 两 个 对 象 的 
Day 属性 。 需 要 显 式 调用 get 和 set 函数 。 
hl = actxcontrol(mscalcalendar, [0 200 250 200 和 


h2 = actkkcontrolfimsealcalendar, [250200 250 200])， 
再 = 帆 1 32]: 


瑞 .setf Day 33 
了 .get( 了 ay ) 
0 
[23] 
这 只 适合 get 和 set 函数 ， 不 能 一 钦 调用 COM 对 象 的 多 个 方法 ， 即 使 显 式 调用 invoke 函 
数 也 不 能 。 


6.2.7 ”识别 对 象 和 接口 
可 以 用 表 6-1 中 的 函数 获取 与 控件 或 服务 器 有 关 的 其 他 信息 ， 
表 合 1 识别 对 所 和 接口 的 廿 数 


himnuerface 


下 面 的 例子 创建 运行 Excel 的 自动 化 服务 器 对 象 ， 假设 对 象 句 柄 为 hb， 对 象 Workbooks 接 
口 的 名 柄 为 w。 





函 数 
55 
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h = acEkserverfexcelapblicaton' 
本 二 和-WRrkbooks， 

用 isgcom 函数 察看 变量 h 是 耕 COM 或 ActiveX 对 象 的 句柄 。 
.iscom 


arts 一 
1 


返回 值 为 1， 说 明 h 是 COM 或 ActiveX 对 象 的 句柄 ， 
了 耐用 isa 菌 数 测 试 变量 h 是 杏 已 知 类 的 类 各 。 
hisalCCOMLexceIappfiication 


aurts = 
] 


正面 用 isinterface 函数 察看 变量 w 是 否 为 COM 接 吕 的 句柄 。 


WiSintetrfiace 
ans = 
1 


下 面 用 class 函数 确定 变量 w 所 属 的 类 。 


本 .elass 


amgs 二 
Tterface,Microsoft_ Excel 9.0_Dhbject_Eibrary Wprkbooks 


6.2.8 调用 方法 


1， 操 作 方 法 的 函数 
使 用 表 6-2 中 的 MATLABE 函数 察看 COM 对 象 的 方法 ， 以 及 调用 这 些 方法 。 


表 全 2 操作 方法 的 函数 


到 数 | 
调用 方法 或 显示 方法 和 类 型 的 列表 






确定 项 目 是 否 为 COM 对 象 的 方法 
Data | 列 近 放下 服务 的 所 及 法 
aehoierew | 列 所 有 法 和 类 信息 的 GUI 而 
使 用 这 些 函数 时 ， 输 入 字符 趾 或 字符 串 单元 数组 表示 的 事件 名 和 事件 句柄 名 。 这 些 名 称 


没有 大 小 写 区 分 ， 不 能 缩写 。 


2， 列 出 类 或 对 象 的 方法 
可 以 用 methodsview 函数 在 图 形 显 示 中 , 或 者 用 methods 函数 在 返回 的 章 元 数组 中 察看 控 


件 或 服务 器 对 象 支持 的 方法 。 
methodsview 函数 打开 一 个 新 窗 中 ,窗口 以 一 种 易于 阅读 的 方式 显示 指定 控件 或 服务 器 对 


象 支持 的 所 有 方法 ， 以 及 几 个 有 关 的 信息 字段 。 键 入 下 面 的 命令 行 
8 = 地 Controlfinscalcalendar, 00400400]% 
c 记 .methodsview 


生成 图 6-7。 
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中 潭 夺 呈 重量 5 是 相 让 
TI 二 ES 
i 衣 十 天王 击 9 


『 辣 中 因 一 上 天 村 古本 


FF Feic 击 工 遇 国 本 曙 | 
PITE 刷 上 ia 
司 二 TETL 关 避让 





转 志 7 显示 焕 的 方 竹 
泊 回 void 的 方法 在 图 中 的 “Retmin Type” 类 设 有 显示 。 
Teathads 函数 将 指定 控件 或 服务 路 对 象 支持 的 所 有 方法 的 名 称 返 回 到 一 个 单元 数组 中 , 忆 
揪 可 以 用 于 对 象 的 MATLAB COM 函 救 ， 
在 瘟 意 中 包 舍 -fu 透 硕 时 ，MATLAB 还 结 每 个 方法 指定 轴 六 和 输 出 对 数 ， 
三,IEdSdsr -Eu 


网 癌 相 eds 人 fa CEESEJE 二 三 E 


人 | 本 handle RATLAA 生 TY) 
刘 二 | 有 HBH LA 二 旧 GEmayj 
ATLA 人 nay EweHShande 和 人 LAA 轩 王 TUWi 


HRESULT Rafpeshfhandle) 
HRESULT Todayfhandiel 
人 展区 UL 于 让 Gil 目 二 二 [ia 
调用 ivote 函数 时 它 如 旨 只 有 一 个 句 栖 参 数 ， 则 返回 一 个 类 似 的 输出 。 


3。 调用 对 象 的 方法 
质 行 或 调用 对 象 的 任何 方法 ， 可 使 用 MATLAB 的 记 voke 函数 ， 或 更 简单 的 方法 名 语法 ， 
inwake 通 数 执行 对 象 的 指定 方法 。 可 以 用 训 voke 函数 使 用 下 面 语 注 中 的 任何 一 种 。 
winvakefhandle imethodnarme' argl ang2， 小 
量 画 风 二 nds imwGIEiUEHGdtmaEe ET 二 1 
下 面 的 例子 读 取 当前 的 日 期 始 后 在 一 个 多 环 中 调用 NextYear 方 性 ,将 这 一 天 提前 5 年， 
村 获取 当天 的 日 荐 ， 刍 六 
总 全 三 瑟 EDHTTTRESLEEEEI | 吕 二 OU 二 有 | 
起 训 ， 大 日 辐 二 


LE 
钢 用 人 egtYear 方法 将 日 幸 提 前 ， 括 后 确认 针 坚 ， 


[本 站 
| 让 
[ai 


二 直入 


Cj,wValue 
ans = 
1175/12006 
与 使 用 inveke 函数 不 同 ， 可 以 使 用 方法 各 来 进行 调用 . 用 方法 名 调用 的 语法 为 : 
一 handjle.rmethodnamefargl ，arg2 
继续 使 用 前 面 的 例子 ， 通 过 提前 5 年 来 返回 原来 的 日 期 。 
fork = 1:5 
gaiLiPreviousYeat: 
end 


过 蝇 ,WwalUe 
ans 三 
115j2o01 


4. 指定 校 举 参 数 

使 用 校 举 ， 可 以 用 更 具 描 述 性 的 名 称 表示 有 些 模糊 的 符 导 值 。 当 使 用 的 类 型 库 报 告 参数 
为 ENUM 并 且 仅 为 ENUM 时 ，MATLAB 支持 将 术 举 作为 参数 传递 给 各 方法 。 

下 面 的 例子 中 的 最 后 一 行将 撤 举 值 xILocationAsDbject 传 递 给 Microsoft Excel Chart 对 象 
的 Locatien 方法 。 可 以 选择 传递 校 举 还 是 传递 其 对 应 的 数值 。 


台 = 各区 SeEtVerC 了 EXCELAPPHeatiotn 





中 播 和 新 的 工作 短 

Workhonk = e ,Workhooks. 上 Add， 
,Wisible = ]， 

SNheet = .AcHvYeWDIKBeook.Sheets; 


5 获取 活动 表格 的 向 柄 


生 ctivesheet = 已 ,. 生 ctjvesheet， 


站 添加 图 
Charts = Workboc.Charts， 
Chart = Charts Add; 


% 设置 图 形 类 型 为 线形 图 
Chart.ChartType = 'XEYYScattetLines' 
Cl = Chatt,Location( XILocationAsODbject， Sheet] ); 
只 处 理 3 个 数值 型 值 时 ， 记 住 每 个 值 的 意义 还 不 困难 。 但 是 ， 如 果 程序 需要 很 多 这 类 值 
时 ， 使 用 校 举 就 显得 重要 了 。 


5 阿 选 的 输入 参数 
调用 有 可 选 输入 参数 的 方法 时 ， 可 以 通过 在 对 应 位 置 上 指定 空 数组 ([ ]) 来 跳 过 可 选 参数 。 
下 面 的 例子 中 ， 第 2 个 参数 没有 指定 。 
handle,imethodname(arg1, [],arg3); 
下 面 的 例子 调用 Exeel 对 象 的 Add 方法 .该 方法 添加 新 表格 到 Excel 工作 简 中 。 Add 方法 
有 4 个 可 选 的 输入 参数 ， 即 
s_ Before， 指定 表格 位 置 ， 在 该 表格 前 面 添 加 新 表格 。 
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e After 指定 表格 位 置 ， 在 该 表格 后 面 添 加 新 表格 ， 
es Count: 要 添加 的 表格 的 总 个 数 ， 
es _ Type: 要 添加 的 表格 的 类 型 ， 
默认 时 在 工作 短 中 创建 3 张 表 。 下 面 的 代码 创建 3 张 表 的 工作 多 ， 然 后 在 第 2 张 表 后 面 
插入 另外 一 张 表 。 调 用 Add 方法 ， 只 指定 第 2 个 参数 After。 可 以 用 门 忽略 第 ] 个 参数 。 
中 打开 一 个 Exee]l 服务 器 


台 = actxServeTfexCel.apblication ); 





嗓 播 和 一 个 新 的 工作 汐 
e.Wbrkbooks.Add: 
e.Yisible = | 


% 获取 有 3 张 表 的 活动 工作 短 


egSheets = .AcUveWOrkbook.Sheets， 


5%% 在 第 2 张 表 后 面 添 加 一 张 新 表 
egheet2 =&heets,Iten2)， 
eNewgSheet = 59heets,Add(],eSheet2): 


6， 返 回 务 个 输出 参数 

如 果 知 道 某 服务 器 函数 支持 多 个 输出 ， 可 以 将 那些 输出 中 的 任何 一 个 或 全 部 返回 给 
MATLAB 客户 程序 .在 等 式 左 例 指 定 揪 弧 中 的 输出 参数 。 这 使 得 MAILAB 客户 程序 有 权 处 
理 服 务 器 函数 返回 的 任何 值 。 

下 面 的 语法 显示 了 MATLAB 客户 程序 调用 的 服务 器 函数 ， 函 数 的 返回 值 用 retval 表示 。 
函数 的 输出 参数 outlout2 等 跟 在 后 面 。 


Eretval eutl out2 ...] = hangle.functionnamelfinl, in2，.)， 


7 出错 消息 中 的 参数 编号 
MATLAB 客户 程序 给 COM 服务 器 程序 发 送 带 有 非法 参数 的 命令 时 ， 服 务 器 识别 非法 参 
数 ， 传 加 与 下 面 类 似 的 出 错 消 息 。 解 释 这 一 类 消息 中 的 参数 编号 时 要 小 心 。 


PutFullMatrxf(handle, 'a，base', 7, [5 人) 
?7 Emor Type Imismatech, afgurment 3， 


上 面 的 PutFullMatnix 命令 中 ， 第 4 个 参数 7 了 非法 ， 因 为 它 是 标量 ， 而 不 是 所 期 望 的 数组 
数据 类 型 ， 但 是 ， 出 错 消息 把 失败 参数 认 作 参数 3。 

这 是 因为 COM 服务 器 只 接收 MATLAB 代码 中 的 最 后 4 个 参数 .handle 参 数 只 识别 服务 器 ， 
但 没有 传递 给 服务 器 。 所 以 服务 器 把 参数 @ 看 作 第 1 个 参数 ， 将 非法 参数 7 视 为 第 3 个 参数 。 

用 inyokse 函数 实现 上 面 的 命令 时 ，MATLAR 客户 代码 中 的 第 $ 个 参数 非法 。 但 是 服务 器 
仍然 把 饭 认 成 第 3 个 ， 因 为 前 2 个 参数 服务 器 都 不 识别 。 


识 voke(handle，PutFullMatrix'，'a'， 由 ase' 7, [和 有]， 
?3 Bror Type Imismatch， arguirient 3 


6.2.9 ”对象 属性 
使 用 表 6-3 中 的 函数 获取 、 设置 或 修改 COM 对 象 或 接口 的 属性 , 或 添加 自己 的 定制 广 性 。 
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表 6-3 操作 对 象 属性 的 函数 
向 COM 对 象 添加 一 个 定制 局 性 
从 COM 对 象 短 除 “个 定制 属 社 


列 出 -个 或 多 个 属性 有 它们 的 值 
显示 图 形 界面 来 列 出 和 收 改 属性 值 
确定 选项 是 否 为 COM 对 甸 的 胶 性 


虹 示 控 社 的 内 部 属性 页 
Se 设置 属性 

























1. 属性 的 俩 
get 函数 返回 COM 对 象 或 接口 的 一 个 或 多 个 属性 的 信息 。 使 用 只 有 一 个 句柄 参数 的 get 
国 数 ，MATLAB 返回 所 有 属性 和 属性 值 的 列表 给 对 象 。 
h = actxsefverf'excelapplic 吉 jon 
heget 
Application' [1x1 Interface.Microsott_Excel 90 
Object Library，Application] 
人 Teator: xlCreatotC'ode' 
Parent' [ITXL mteriace,Microse 台 _Exeel 9.0 
Object_Library，、Appjicaton] 
戌 ctivete 有 il 站 
ctiveChart [1x50 char] 


只 返回 一 个 属性 的 债 时 ， 用 点 语法 指定 对 象 的 句柄 和 属性 名 。 
Cotnpany = h.CrganizationMName 
cotnupany 二 
The MathWorks, Imc. 
属性 名 没有 大 小 写 区 分 ， 也 可 以 缩写 。 例如 ， 可 以 用 org 代替 上 面 命令 行 中 的 
OrganizationNante' 完 整 属性 名 。 
Company =h,org 
Company = 
The MathwWorks, Ime. 
也 可 以 用 get 亢 数 函数 实现 ， 例 如 
划 epath =h.getfDPefau]tFilePpaihy 
和 jepath = 
HADocaments 
如 果 试图 只 用 一 个 命令 就 获得 多 个 属性 ， 必 须 在 一 个 字符 串 单 元 数组 中 指定 属性 名 ， 并 
使 用 get 函数 。 返 回 一 个 单元 数组 ， 其 中 的 每 一 列 对 应 于 每 个 属性 值 。 
C 三 hgetT Prop，Prop， 
例如 ， 要 获得 COM 对 象 h 的 DefaultFilePath 和 UserName 属性 值 ， 使 用 下 面 的 语 铝 ， 
h = actXServerfexcel.apptication': 
C= hgetTDefanltPilePath'，UserName' 
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cf 
ais 一 

了 HADocuments 
anmas 一 

C. Coolidge 


2， 设 置 属性 的 值 
设置 或 修改 属性 值 最 简单 的 方式 是 使 用 类 做 下 面 第 2 行 的 赋值 语句 。 该 行 语句 将 对 象 h 
的 DefaultFilePath 属性 的 值 设置 为 它 AWExceelWaork 。 
R = actxserverCexcel-application )， 
h.DefaultFilePath = ' 它 AEXCelWoTK 


也 可 以 在 不 用 点 语法 的 情况 下 使 用 set 函数 来 实现 属 件 值 设置 . 将 属性 名 和 新 属性 值 都 指 
定 为 set 函数 的 输入 参数 ， 
hsetf DefaultpilePath'，CAEXxcelWotk 沁 
用 一 行 语 名 改变 多 个 属性 的 秆 ， 必 须 使 用 下 面 的 set 函数 形式 。 
hsett propT vaneT，Prop2，valtue2，.. 必 
例如 ， 设 置 COM 对 象 h 的 DefaultFilePath 和 UserName 字段 ， 使 用 下 面 的 语 名 ， 
旦 = actxserveigCexcelapbplication ); 


h.set[C DefaultPilePath'，CAExcelWorE ，. 
TUserName，H. Hoover); 


3， 带 参数 的 属性 
某 些 COM 对 象 的 属性 像 方法 一 样 可 以 接收 参数 。 进 行 get 或 set 函数 操作 时 ， 最 后 获得 
或 设置 的 值 与 传 入 的 参数 有 关 。 
Microsoft Bxcel 应 用 程序 的 Activesheet 接口 作为 COM 服务 器 运行 就 是 一 个 例子 。 该 接口 
有 一 个 Range 属性 ， 它 实际 上 是 另 一 个 接口 。 为 了 慕 得 正确 的 Range 接口 ， 必 须 传 入 指定 的 
范围 坐标 。 
下 面 代码 中 的 第 1 行 返 回 一 个 指定 的 Ransge 接口 。 参 数 A1 和 B2 为 接口 指定 电子 表格 的 
某 个 矩形 区 域 。 
eActivesheetRange = eAAetivesheet.getRange'，A1 了 2 
eActivesheetRange = 
JIntetface,Microsoft_Exeel_5.0_Object_LibraryRange 
获得 或 设置 这 类 属性 ， 像 上 面 那样 使 用 get 或 set 函数 。 在 属性 名 后 面 的 小 括号 中 输入 参 
数 ， 即 
bandle.get(propertynarne， arg1， arg2，..); 
在 茶 些 方面 ，MATLAB 处 理 这 些 属性 的 方式 与 处 理 方法 很 相似 ， 最 重要 的 区 别 是 处 理 方 
法 需要 使 用 ivoke 负数 ， 而 不 是 get 菌 数 来 察看 属性 。 


,页 CHivesheet.inyoke 


Range = handie Range(handle，Varianb VarianttDptional)) 
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4、 著 取 和 设置 对 象 失 量 
通过 将 对 象 句柄 放 到 一 个 矢量 中 然后 操作 该 矢量 ， 可 以 用 get 和 set 函数 同时 操作 老 个 对 
象 。 下 面 的 例子 创建 4 个 Microsoft _ Calendar 对 象 的 句柄 和 失重。 然后 通过 调用 set 函数 ， 在 一 
次 操作 中 修改 所 有 对 象 的 Day 属性 ， 
有 1 = actreeontrokM msc 弄 ,calendar, [0 200 250 200]); 
h2 = actxcontrolmscalcalendar， TI250 200 250 200]); 
h3 = ac 区 control mscalcalendar, 00250200]); 


h4 = actcontrolfmasecal.calendar, [2S00 250 200]); 
再 = 由 1 ha h3 hd]; 


了 .setf Day , 23) 
巧 ,get(Day) 
ans = 

[23] 

[23] 

也 3] 

3] 


注意 : 获取 或 设置 多 个 对 象 的 值 ， 必 须 显 起 使 用 get 和 set 函数 ， 类 似 开 Day 的 语法 只 支 
和 持 标 量 对 锣 ， 


5， 使 用 校 举 值 

核 举 使 察看 和 修改 属性 更 容易 ， 因 为 每 个 可 能 的 属性 值 都 用 一 个 字符 串 来 表示 、 比 如 ， 
在 Excel 应 用 程序 中 ,DefaultSaveFormat 属性 的 默认 值 为 XUnicodeText, 这 比 一 个 数值 值 5 如 
57) 要 容易 记得 多 。 

MATLAB COM 函数 get 和 set 支持 时 性 梳 举 值 。 用 只 带 对 象 句 顶 参数 的 set 函数 察看 哪 
些 属 性 使 用 术 举 类 型 。 


让 = actxseryer('excel-application 
h.set 
ans 一 





Creator: fxICrIeatorCeoxie' 
ConstrainMumertic: 1 
CopyOhiectsWithCelis: 1 
Cuisor: {4X1T cetl 
CutCopyMode: {2x1 ceD) 


MAILAB 显示 那些 将 棱 举 类 型 作为 非 空 单元 数组 接收 的 属性 。 这 些 属 性 的 设置 方式 用 多 
行 单元 数组 显示 ， 每 行 对 应 一 种 设置 方式 。 对 于 只 有 一 种 设 署 方 式 的 属性 ， 用 单行 单元 数组 
进行 显示 。 
显示 这 些 属性 的 当前 值 ， 使 用 带 对 象 句柄 参数 的 get 函数 。 
和 .Set 
Creator XIKTeatorCode' 
ConstrainNumeric: 站 
CopyObjectsWithCells: 1 
Culsor' XIDefault 
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CutCopyMeode:“ 


用 带 属性 各 参数 的 set 函数 列 出 指定 属性 的 所 有 术 举 值 。 输 出 为 字符 串 单 元 数组 ， 其 中 每 
个 字符 串 对 应 于 指定 属性 的 一 种 设置 。 
hsetOtCUrsor 
amBeanm 
XIDefault' 
和 INorthwestArrow' 
XIWait' 
将 属性 值 设置 为 术 举 类 型 ， 只 需要 简单 地 将 枚 举 值 赋 给 筷 性 名 ， 即 
handle.property = 'entumneratedvalue '; 
还 可 以 使 用 带 凯 性 名 和 枚 举 值 的 set 函数 。 
handle.setCpioberty，enumeratedvalne'”]; 
可 以 使 用 校 举 字 符 趾 ， 也 可 以 使 用 等 价 的 数值 值 。 在 保证 枚 举 值 惟一 性 的 前 提 下 ， 可 以 
缩写 枚 举 字 符 串 ， 就 像 下 面 代码 中 第 3 行 所 显示 的 。 校 举 字符 串 也 是 没有 大 小 写 区 分 的 。 
下 面 的 例子 使 Excel 电子 表格 窗口 可 见 ， 然 后 从 MATLAB 客户 程序 改变 光标 ， 要 察看 光 
标 是 如 何 改 变 的 ， 需 要 单 击 电子 表格 窗口 。 下 面 商 种 设置 方式 都 将 光标 设置 为 沙漏 类 型 。 
h.wisible = 1 ; 
hCuarsor = ' xjWWait 
huCursor = 光 lw 冯 于 Wait 的 缩写 形式 
读 取 刚刚 设 寺 的 Cursor 属 竹 值 。 


h.eursor 











al15 三 
XIWait 


6. 使 用 局 性 探 察 器 
MATILAB 还 提供 了 一 个 图 形 用 户 界面 来 显示 和 修改 属性 。 可 以 通过 下 面 两 种 方式 打开 属 
性 探 察 器 。 
es 从 MAILAB 命令 行 调 用 inspect 函数 。 
。 在 MATLAB 工作 空间 浏览 器 中 双击 对 象 。 
创建 一 个 运行 Microsoft Excel 的 服务 器 对 象 ， 然 后 将 对 象 的 DefaultFilePath 属性 设 署 为 
CAExeelWork '。 
h = actXservenCexcelspplication' 
h.DefaultFilepPath = 'C'AEXxeelWork'; 
现在 调用 inspeet 函数 显示 新 窗口 ， 该 窗口 中 显示 了 服务 器 对 象 的 属性 ， 
h.inspect 
打开 属性 探 察 器 如 图 6-8 所 示 。 
向 下 滚动 ， 直 到 看 到 刚刚 改动 的 DefaultFilePath 属性 ， 其 值 应 该 为 CNExcelWork。 
用 属性 探 察 器 再 改变 一 次 DefaultFilePath 属性 值 ， 这 次 改 为 CNMyWorkDirectory。 设 署 时 
单 击 左 侧 的 属性 名 ， 然 后 在 右面 输入 新 值 。 
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现在 同 到 MATLAB 埋 入 人 窗口， 确定 DefauliFilepath 属性 慎 已 既 进 行 了 收发， 
本 二 局 击 
天 [is 三 
CIyWEiEDineelory 
往 意 ， 如 果 在 MATLAB 合 地 行 修改 属性 ， 必 频 更 新 “Property Inspectar” 和 窗口 来 察看 其 
中 的 改变 。 通 过 重新 调用 inspeet 函 监 来 更 新 “Property lnspector” 窗 口 ， 
在 “Eroperty Inspeetar" 窗口 中 , 接 棕 枚 举 值 的 属性 用 到 按钮 表示 . 图 右 9 中 显示 了 Curenr 
属性 的 让 个 榴 举 值 。 当 前 值 用 一 企 核 远 标 记 《【 + 表示 





贾 环 属性 的 什 
用 属性 撮 察 内 改 变 属 性 值 ， 只 需 模 简单 地 单 击 避 技 寻 ， 品 示 访 属性 的 选项 ， 焕 后 单 击 要 
选 的 慎 ， 


7， 定 制 属性 
性 用 adpmapery 困 烤 ， 可 以 络 控 件 韦 加 自己 的 属性， 下 面 的 再 祛 络 控件 h 宫 加 一 个 定制 
属性 。 
baddpropertyl rapertyanner 
下 面 创建 mwsamp2 控件 ， 痊 它 需 加 一 个 Position 属性 ， 属 性 值 为 [200 120j， 
上 = EREOGNERGIT EUR 人 ESEEIENCET 了 [半天 | 因 条 直 
村- 纪 坷 阁 让 和 加 0 直上 
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hh.Position = [200 120]， 
用 get 函 孝 列 出 控件 的 所 有 属性 。 可 以 发 现 ， 已 经 添 如 了 新 的 Position 属性 。 


Position: [200 12 人 0 


和 .Position 
ans 二 
200 12 


从 控件 上 删除 定制 属性 ， 使 用 deleteproperty 函数 。 
haeletebtopertyfCpropertyMNarite 
例如 ， 删 除 刚 出 创建 的 Position 属性 ， 用 get 函数 显示 所 有 属 件 时 它 已 经 不 存在 了 。 
和 deletepropertyrPosition 人 
Laet 
Label: Tabel' 
Radius: 20 


6.2.10 ”控件 和 服务 器 事件 


一 般 来 讲 ， 事 件 是 用 户 定义 的 某 种 行为 ， 它 在 服务 器 应 用 程序 中 发 生 ， 并 且 通 常 需 要 从 
客户 应 用 程序 作出 某 种 反映 。 例 如 ， 用 户 在 服务 器 界面 窗口 的 特定 位 置 单 击 鼠 标 可 能 需要 客 
户 作 出 某 种 响应 动作 。 事 件 发 生 时 ， 服 务 器 告诉 客户 这 件 事情 发 生 了 。 如 果 客 户 正在 侦 听 该 
事件 ， 它 会 通过 执行 事件 处 理 程 序 作出 响应 ， 

MAILAB 客户 可 以 侦 听 和 响应 ActiveX 控件 或 COM 自动 化 服务 器 发 生 的 事件 。 通 过 注 
册 激 活 的 每 个 事件 及 其 事件 处 理 程序 ， 可 以 选择 试图 侦 听 哪些 事件 。 当 注册 后 的 任何 事件 在 
控件 或 服务 器 中 发 生 时 ， 客 户 得 到 通知 ， 并 通过 执行 合适 的 处 理 程 序 来 作出 响应 。MATLAB 
中 的 事件 处 理 程序 通常 用 M 文件 实现 ， 


1. 用 于 事件 处 理 的 隙 数 
使 用 表 6-4 中 的 MATLAEB 函数 注册 、 注销 事件 ， 列 出 所 有 事件 ， 或 列 出 刚刚 注册 的 事件 。 


表 人 4 用 于 南 件 处 理 的 函 教 





egisererenl | 放出 榨 作 或 服务 器 束 伯 的 率 件 处 又 放 | 

注销 控件 或 服务 器 的 所 有 事件 

注销 控件 或 服务 器 事件 的 事件 处 理 程序 
使 用 这 些 函 数 时 ， 用 字符 串 或 字符 串 单元 数组 输入 事件 名 和 事件 处 理 程序 名 称 。 这 些 名 

称 没有 大 小 写 区 分 ， 但 不 能 缩写 。 












于 ] 。 


2. 如 何 准备 和 处 理 COM 服务 需 的 事件 
下 面 介绍 处 理 COM 控件 或 服务 器 事件 的 基本 步骤 。 
(1) 注册 进行 响应 的 事件 
用 registerevent 图 数 注册 那些 让 客户 作出 啊 旋 的 服务 器 事 和 性 。 有 两 种 方法 可 以 注册 事件 。 
s 如 果 有 … 个 处 理 所 有 服务 器 事件 的 冰 数 ， 可 以 用 下 面 的 语法 注册 这 个 通用 事件 处 理 程序 . 
hregistereventfhandjieny; 
se 如 果 不 同类 型 的 事件 有 不 同 的 事件 处 理 程 序 ， 可 以 用 事件 对 应 的 处 理 程 序 注 册 它 。 使 
用 下 面 的 语法 ; 
hregisterevent[[eventl handleri event2 了 handler2 
对 十 AetiveX 控件 ， 也 可 以 在 使 用 actxeonkrol 函数 创建 控件 时 注册 事件 《有 下 面 两 种 方 
浅 )。 该 函数 将 句柄 返回 给 新 创建 的 控件 对 象 。 
s 使 用 下 面 的 语法 注册 对 所 有 事 竹 都 作出 响应 的 通用 事件 处 理 程序 。 
h = actxcentrolfprogid, position, figutre, handler); 
# 使 用 下 面 的 语法 注册 适用 于 某 种 事件 类 型 的 处 理 函 数 。 
= actxcontrol( progid , peositiom ftgUre, .… 
(eventl andlerl event2' handler2 
MATLAB 客户 只 侦 昕 那些 已 经 注册 的 事件 。 


{2) 识别 所 有 事件 和 注 了 册 的 事件 


使 用 ewents 函数 列 出 控 佚 或 服务 器 可 以 作出 响 庶 的 所 有 事件 。 该 函数 返回 一 个 结构 数组 ， 
其 中 结构 的 每 个 字段 是 事件 处 理 程 序 的 名 称 ,字段 值 包含 处 理 程序 的 函数 形式 。 调 用 匈 柄 为 
的 对 象 的 events 函数 ， 键 入 
S=h.events 
eyentlisteners 图 数 只 列 出 当前 注册 的 那些 事件 。 该 图 数 返回 一 个 单元 数组 ,其 中 的 每 一 行 
表示 一 个 注册 了 的 事件 及 其 事件 处 理 程序 的 名 称 。 调 用 句柄 为 h 的 对 象 的 eventlisteners 函数 ， 
键入 





C=h,eventlisteners 
(3) 事件 发 生 时 作出 响应 
不 管 什 么 时 候 控件 或 服务 器 触发 了 客户 正在 侦 听 的 事件 ， 客 户 都 会 通过 调用 已 经 注册 的 
一 个 或 多 个 事 性 处 理 程序 来 响应 事件 。 可 以 在 处 理事 件 的 M 文件 程序 中 实现 这 些 函 数 。 
(41) 注销 不 百 需 要 侦 听 的 事件 
如 果 已 经 注册 了 一 些 事 件 ， 但 现在 想 让 客户 程序 锦 略 它 ， 可 以 用 unregisterevent 和 
Unregistetallevents 邓 数 注销 它们 。 
s 对 于 句柄 为 h 的 服务 器 , 注销 作为 通用 事件 处 理 程序 注册 的 所 有 事件 , 使 用 下 面 的 语法 ， 
h.unregistereventt handjer)， 
* 注销 作为 单独 事件 处 理 程 序 注册 的 事件 eventN， 使 用 下 面 的 谨 法 : 
hunregisterevent(feventl 和 andler1: eventN handlerN']): 
。 注销 全 部 事件 ， 使 用 下 面 的 语法 : 


hunregistetallevents; 
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3.， 几 应 ActiveX 控件 前 事件 

本 例 演 示 如 何 处 理 ActiveX 控件 舱 发 的 事件 。 使 用 MATLAB 自 带 的 mwsamp2 控件 。 安 
装 MATLAB 时 就 定义 了 mwsamp2 的 事件 处 理 程 序 。 

e。 注册 控件 事件 ，aetxcontrol 函数 不 仅仅 创建 控件 对 象 ， 还 可 以 用 于 注册 指定 的 事件 。 
王 面 的 代码 注册 2 个 事件 (Click 和 MouseDowm， 以 及 2 个 处 理 函 数 (myclick 和 imnymeoused) 。 

于 = guUTef Position , [100 200 200 2001 
HL = actxkcontroltamwsamp,Imwsampbctrl2 000200200], 工 ,.， 
T Cliek myclick MouseDewnm 3Ymnyrmoused 有 

如 果 后 面 还 要 注册 其 他 事件 ， 使 用 registerevent 函数 。 

hregistefFevent(fDhblClck my2click']y 

继续 本 实例 以 前 注销 DblCtick 事件 。 

hunregisterevent({TDblCliek 'my2click]); 

s 列 出 控件 的 事件 ， 这 时 ， 应 该 只 注册 了 Click 和 MouseDowua 事件 。 要 察看 控件 可 以 舱 
发 的 所 有 事件 ， 使 用 events 函数 。 该 函数 返回 一 个 结构 数组 ， 其 中 结构 的 每 个 字段 为 事件 处 
理 程序 的 名 称 ， 字 段 值 包含 处 理 函 数 的 形式 。 

要 列 出 所 有 事件 ， 使 用 下 面 的 语句: 

生 二 了 ,events 
和 岛 三 
flick: void Clickfy 
DblClick: void PDblCaick0y' 
MouseDown: void MouseDowntint16 Button, int16 Shi 进 ， 
Wariant K， Variant 7 
Event_Args: [1x101 char] 


S.EBvent_ AreEs 
void Event Atgsgintl6 typeshort int2 typejon 名 ， 
touble tpedouble, string typestring, bool typebool) 
如 果 只 列 出 那些 当前 用 控件 注册 了 的 事件 ， 使 用 eventlisteners 通 数 。 该 函数 返回 一 个 单 
元 数组 ， 其 中 的 每 一 行 表示 一 个 注册 了 的 事件 及 其 事件 处 理 程序 的 名 称 。 
使 用 eventlisteners 函数 列 出 注 了 黄 的 事件 的 名 称 和 它们 的 处 理 函 数 。 


heventlisteners 





ang = 
click: TDYyeliek' 
"mousedownm mymaotused 
se 咱 应 控件 的 事件 MAILAB 创建 mwsamp2 控件 时 , 还 显示 中 间 有 标签 和 圆 的 图 形 窗口 。 
如 果 单 击 该 窗口 中 的 不 同位 置 ， 可 以 在 MATLAB 命令 窗口 中 看 到 亦 标 位 置 的 怀 坐 标 和 了 举 标 。 
每 次 按 下 鼠标 键 时 ， 都 会 扔 发 MouseDewm 事件 ， 调 用 mymoused 函数 。 该 冰 数 将 点 的 位 
置 值 输出 到 MATLAB 命令 窗口 中 。 
The 匡 pos 计 on is; 
ft22] 
The YY Position is: 
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ans 一 


芭 3] 
还 可 以 查看 响应 Cliek 事件 时 报告 的 消息 。 
SipBeelick 和 petion 

双击 鼠标 没有 任何 不 同 ， 因 为 DblCfick 事件 已 经 注销 了 。 

s 注销 控件 的 事件 :注销 事件 时 ， 客 户 不 再 侦 听 该 事件 的 发 生 。 事 件 触发 时 ， 客 户 不 会 
作出 响 旗 。 如 果 注 销 MouseDowna 事件 ， 你 会 发 现 ， 在 窗口 上 单 击 时 MATLAHB 不 再 报告 邯 和 
的 位 置 ， 

huUrregistereventT MouseDown mymouset 中 
现在 ， 注 册 DblClick 事件 ， 将 它 与 处 理 函 数 my?2click 连接 。 
hnegistereventtT DbleClicg my2ckHek 有， 
如 果 再 次 调用 eventlisteners 函数 ， 会 发 现 现 在 注 了 册 的 事件 为 Click 和 DblCtick。 


heventlisteamers 
ns 一 
[ic 虹 mycliek' 
pleclek my2click 
双击 鼠标 键 时 ，MATLAB 会 在 MATLAB 命令 窗口 中 显示 下 面 消息 ， 先 后 响应 Click 和 
DblClick 事件 。 


Single clipk fonction 
Deouble sheck fnpction 


注销 控件 所 有 事件 的 一 个 简单 方法 是 使 用 unregisterallevents 本 数 。 没 有 事件 注册 时 ， 
eyentisteners 函数 返回 一 个 空 的 单元 数组 。 


hunregisteraleventa 
heventlistemers 
ang 一 

心 

现在 在 控件 窗口 中 单 击 记 标 不 发 生 任 何事 情 ， 因 为 没有 任何 事件 被 触发 。 

如 果 有 注册 为 通用 事件 处 理 程序 的 事件 ， 例 如 用 在 下 面 例 子 由 的 sampbevm， 可 以 用 
Unregisterevent 畏 数 在 一 次 操作 中 注销 所 有 这 些 事 件 。 下 面 的 例子 用 通用 处 理 程序 sampey 在 
服务 器 中 注册 所 有 事件 。 现在 MATLAB 通过 执行 sambev 从 该 服务 器 中 处 理 所 有 类 型 的 事件 。 

hregistereventfsatmpey ); 

通过 列 出 所 有 事件 值 听 程 序 来 确认 刚才 的 注册 ， 


heventisteDers 


tls 二 
lick SPeY 
blclick' De 
Tousedown' SPDEW 


现在 注销 所 有 使 用 sampev 事件 处 理 程序 的 事件 。 
h-unregistereventf'satmpev 
Rh.eventistenets 


和 
二 呈 4 


4 从 自动 化 服务 器 响应 事件 示例 
下 面 的 例 巴 演示 如 何 处 理 自动 化 服务 器 触发 的 事件 。 它 创建 一 个 运行 理 的 服务 器 ， 为 所 
有 事件 注册 一 个 通用 处 理 程序 ， 然 后 通过 用 瑟 程序 浏览 网 址 来 触发 事件 。 
e 注册 服务 器 事件 ; 下 面 的 例子 注册 自动 化 服务 器 触发 的 所 有 事件 , 与 上 面 的 例子 不 同 ， 
注册 同一 个 处 理 程 序 setvereyvents 来 响应 所 有 类 型 的 事件 。 因 为 本 例 不 是 MAITLAB 白带 的 ， 
所 以 必须 自己 创建 事件 处 理 程序 。 创 建文 件 servereyents.m， 代 码 如 下 所 示 。 


和 nction SetvefeVentstvarargin) 
站 显示 引入 的 事件 名 


eventrnarmne = Varareinfend 上 


5 显示 引入 的 事件 参数 
eventargs = YaTaTginfend-T)} 
然后 使 用 下 面 的 命令 创建 自动 化 服务 器 应 用 程序 , 并 从 服务 器 中 为 所 有 豆 件 注册 处 理 程序 ， 
中 创建 一 个 运行 更 的 服务 器 
= actxservert internetexplorerapplicationy: 





中 使 服务 器 应 用 程序 可 见 
lsetf Visible', 1); 


中 外 服务 器 用 通用 事件 处 理 程序 注册 所 有 事件 


hreBiStereventfSetverevent5 ); 


es 列 出 服务 器 的 事件 : 用 events 函数 列 出 控件 或 服务 器 可 以 响应 的 所 有 事件 ， 用 
eyentlisteners 郴 数 只 列 出 当前 注册 的 那些 事件 。 
h = actxserveriniermetexplorerapplication); 
jh,Visible = 1; 


hevents 
StatmsJextChange = Yoid StatnsTextCharpgerstring Texft 
ProgressChange = Yoid ProgressChangefint2 Progress， 
it32 ProgrnessMax) 
CominandStateChange = Yoid CommandStateChangetint32 Command， 
bool Ehabte) 


% 这 时 汉 有 注册 事件 ， 所 以 俩 听 程 序 返 回 空 的 单元 数组 
Ph.eventlistenetgs 
ang 二 


{ 


hrnegisterevYentr Serverevents 


heventljisteners 

ans 二 
Statustextchanee' SETVvefeventS' 
oogresschange' Serverewvents' 


ommandstatechange' Serverevents' 
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s 啊 应 服务 器 事件 ， 现 在 全 部 事件 都 注册 了 。 如 果 和 触发 任何 事件 ， 将 执行 serverevents.m 
定义 的 通用 处 理 程序 来 处 理 该 事件 。 用 正 浏览 器 程序 浏览 网 站 ， 或 者 在 MATLAB 命令 行 中 
键入 下 面 的 命令 。 

hb.Mavigate2tbtbrmwww'mathweorkscorm'; 

应 该 看 到 显示 在 客户 窗口 中 的 一 长 串 事 件 。 

。 注销 服务 器 事件 ;使 用 unregisterevent 国 数 注销 指定 的 事件 。 用 字符 串 单元 数组 指定 
要 注销 的 每 个 事件 及 其 处 理 函数 。 


DiunfegisteTeverl 民 人 eventl thandlerl ; ,， 
evwent2， tangler2 .1 


如 果 事 件 用 通用 处 理 程序 注册 ， 就 像 本 例 ， 则 需 训 给 要 注销 的 每 个 事件 指定 通用 处 理 程 
序 的 名 称 。 
h_antfe 晤 stereventt[ eventl ceomrmonhandler， 
eventa' conarnonhantdlenm， 
继续 本 例 ， 注 销 progresschange 和 comimandstatechange 事件 。 


JunregisteTevent{ rogresschange'，Serverevenis' .，， 
Sommandstatechange'，ServereVents' 


使 用 unregisterallevents 清 数 可 以 注销 对 象 的 所 有 事件 。 下 面 两 个 命令 注销 所 有 事件 ， 然 
后 只 广 册 一 个 单 狐 的 事件 。 


hunregisterallevents， 
卫 有 Steteventf TitieChahge'，serverevenls' 站 ); 


如 果 现 在 用 正 进行 浏览 ，MATLAB 会 只 遇 应 TitleChange 事件 。 
s。 关闭 应 用 程序 : 程序 不 再 使 用 时 就 应 该 关闭 。 可 以 通过 键入 下 面 的 语句 来 注销 所 有 事 
件 并 关闭 应 用 程序 。 
h.unregisterallevents; 
h.Qnuit; 
,delete; 


6.2.11 编号 事件 处 理 程序 


1， 京 件 处 理 概述 

当 控 件 或 服务 器 试图 通知 其 客户 有 事 发 生 时 ， 和 触发 事件 。 例 如 ， 用 户 在 控件 界面 窗口 中 
的 某 处 单 击 时 ， 许 多 控件 都 触发 事件 。 在 MATLAB 中 ， 可 以 创建 和 注册 自己 的 M 文件 函数 ， 
使 得 事 任 发 生 时 可 以 作出 响应 。 这 些 函 数 就 是 事件 处 理 程序 。 可 以 创建 一 个 处 理 程序 处 理 所 
有 事 人 性， 也 可 以 给 每 类 事件 安排 一 个 单独 的 处 理 程序 。 

对 于 控件 ， 可 以 在 创建 控件 时 或 者 以 后 任何 时 候 注 册 处 理 程序 。 注 册 处 理 程序 可 分 别 使 
用 actxcontrol 函数 和 registerevent 阔 数 。 对 于 服务 器 ， 必 须 用 registerevent 函数 注册 那些 试图 
让 客户 侦 听 的 事件 。 在 参数 列表 中 指定 事件 处 理 程序 ， 沪 参数 可 以 是 回调 函数 的 名 称 ， 也 可 
以 是 由 指定 事件 和 它们 各 自 的 事件 处 理 程 序 组 成 的 单元 数组 。 

Ph = actxcontrol (progid, position, handle，.， 











callback | {eventl eventhandlerl; event2 eventhandler2: .) 


指定 单一 回调 过 程 时 ，MATLAB 用 该 过 程 注册 所 有 事件 。 发生 任何 事件 时 ，MATLAB 执 
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行 通用 的 calljback 过 程 。 
可 以 用 events 函数 列 出 COM 对 银 识 别 的 所 有 事件 .例如 , 使 用 下 面 的 语句 列 出 mwsamp2 
控件 的 所 有 事件 。 
f = 名 Pure (Position , []00 200 200 2001); 
nh = actxconttrol (ttwsatrp.Dnwsarrpetrl 2 上 站 200 200], 证 
了 eVenHt 
Click = void Clickty 
Pbtelick = void DhbICjickO 
MouseDown = void MouseDownfint16 Button, int16 Shitt， 
Wariant X,， Variant 9) 





2， 传 递 结 事件 处 理 程序 的 参数 
触发 注 了 册 的 事件 时 ，MATLAB 如 表 65 中 所 示 将 信息 从 事件 传递 给 它 的 处 理 程序 。 


家 6-5 MATLAB 传递 的 参数 


格 式 
对 象 名 称 MATLAE CDOM 类 

















事件 ID deubie 
事件 参数 列表 的 了 与 控件 传递 的 相同 
事件 鸡 数 列表 的 本 必 与 控件 传递 的 相同 


事件 结构 结 栓 
事件 名 字符 数组 


编写 事件 处 理 程序 时 ， 用 事件 名 参数 识别 事件 的 来 源 ， 从 事件 参数 列表 中 获取 控件 传递 
的 参数 。 所 有 事件 处 理 程序 必须 接受 多 个 参数 。 


fnction event fvYararginy) 




















过 (vararginfend]) = 'MouseDowmny 中 检查 事件 名 
X_pos = varargin{5j; 5 读 取 第 5 个 事件 参数 
7 _pos = varargin16]; %% 读 取 第 乓 个 事件 参数 
end 
3， 事件 结构 


MAILAB 传递 的 倒数 第 2 个 参数 是 事件 结构 ， 它 具有 表 6-6 所 示 的 字段 。 
表 6-6 事件 结构 的 字段 



































Type 事件 名 
[some | ht 名 |MAILABcoM 英 | 
与 控件 传递 的 相同 

国 | 事件 条 教育 二 近 伯 传 囊 的 相同 








例如 ， 触 发 mwsamp2 控件 的 MouseDown 事件 时 ，MATLAEB 将 这 个 事件 结构 传递 给 注 了 
册 的 事件 处 理 程 序 。 
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Type: RionseDPDown' 
Sourcee': [1X] CDM.mwsampImwsaimpctrl.2] 
EventID: -605 
Button: ] 
Shift: 0 
X; 之 7 
?24 


4， 事 件 处 理 程 序 示 例 
下 面 指定 单一 回调 sampev; 


f = 人 Unef Position [100 200 200 200])， 
h = actxcontrolCmwsamp.ITwsampct2 [0200 2001..… 


gef， Sampev ) 
浅 = 
COM mwsamp.mwsampetrl.2 
或 者 用 单元 数组 格式 指定 几 个 事件 ， 


h = acEconteolCimnwsamipmwsatmpctr2， [00D200 200], 宇 
TiCliek' myclick ， DblClick my2click'; … 
iouseDown mymoused | 六 


事件 处 理 程 序 myelickmmny2clickim 和 mymousedm 为 ， 
和 nction Inycligk(varargin) 
dispfSingle clck hanectiony 


Ranetion my2clickfvarargim) 
出 sp(Deuble click fnction) 


fnetion Imymousedfyarargin) 

dispCYou havye reached the imouse dowa function) 

dispfThe 其 positiot 二 : ) 

douplefvarargin{6]》 

dispfThe 了 position is: ) 

doubtefvararein17]) 

另外 ， 可 以 用 单元 数组 对 将 同一 个 事件 处 理 程 序 用 于 所 有 试图 监测 的 事件 。 使 用 这 种 方 

法 时 ， 响 应 时 间 会 比 使 用 回调 类 型 的 快 。 例 如 : 

f = 攻 Eurel Position [100 200 200 200]); 

h = HtxeontrolfrTnwsarmp.IwsSarmpcttl 2 ，,， 

[中间 200 200],f Telick' 'allevents'; 

TDhbielick allevents; kiouseDown allevents']}) 


其 中 ，allevents.m 的 代码 为 ; 

function allevetits(yarargin) 

这 (Sttcimp(varargih{ 了 Type Ceck) 
出 sp (Singie Click Event Fired) 

elseif fstrcmp(Vararg 记 131.Type，Dbiclick7) 
出 sb [Double Clicek Event Fired) 

elseif (strotmmpfvarargin{3j.Type，iouseDown 人 分 
出 SPpTMousedowi Event Fined 

end 
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5， 用 M 文件 子 范 数 编 写 事件 处 理 程序 
其 实用 不 着 给 每 个 事件 处 理 程序 编写 一 个 单独 的 M 文件 ,可 以 用 M 文件 子 函数 将 这 些 处 
建 函数 中 的 某 些 或 全 部 放 到 一 个 单一 的 M 文件 中 。 
下 面 的 例子 显示 了 文件 myeallbaeksm 中 用 子 函 数 实 现 的 3 个 事件 处 理 程序 ， 即 
myelickmy2ciick 和 mymoused。 调 用 str2fanc 函数 将 输入 的 字符 串 转 换 为 函数 句柄 。 


fonetion a = Inycallpacksfstr) 
有 二 &tr2fumctstr)i 





fanction tmyclick(varargin) 
disptSingjle click 名 nction') 


fonction Imy2eclickfvarargin) 
dispf( Donhle click tmnetion') 


加 netion myrmoused(varargin) 

出 Sb Yon have reached the Inouse down fnction' 
dispCThe 和 position 26; 

doubletvarargin{16]) 

dispfThe Y pasition 1: 

donmblefvarargin{7]) 


注册 这 些 事件 中 的 一 个 ， 只 需要 调用 mycallbacks 函数 ， 并 传递 事件 处 理 程序 的 名 称 。 


8 = 壹 tcontrolfCmwsamhInwsampettl2 [00200200]， 
zef，sSampev 
hregistereventf Click ,myYcallbackstrnyelicir 7 


6.2.12 保存 工作 
使 用 表 6.7 中 的 MATILAB 函数 保存 和 依 复 COM 控件 对 象 的 状态 。 
种 6-7 实现 保存 和 恢复 的 函数 


从 文件 中 厅 入 和 初始 化 COM 控件 对 象 
将 COM 控件 对 象 写 入 和 序列 化 到 文件 


用 save 函数 将 COM 控件 的 当前 状态 保存 到 文件 。 芷 面 的 例子 创建 一 个 mwsammp2 控件 ， 
-并 将 它 的 初始 状态 保存 到 文件 mwsataple 中 。 
夺 = 石 Euref Position', [100 200 200 200T); 
h = actgeontroM mwsamp.mwsatnpetr 2 [0D200 200]. 站; 





h.savefmwsarnple 
现在 ， 改 变 标 签 和 圆 的 半径 。 
h.Lahel = Circle ; 
h-Radius = 40; 
h Redraw; 


使 用 load 冰 数 ， 可 以 将 控件 恢复 到 初始 状态 。 
了 oadfrrwsarmple' 
了 hget 
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ans 二 
Iabel: 工 abej' 
Radius: 20 


注意 ，COM save 和 load 函数 目前 只 支持 控件 ， 


6.2.13 帮 放 COM 接口 和 对 象 


使 用 表 6-8 中 的 MATLAB 函数 释放 或 删除 COM 对 象 或 接口 。 
表 6-8 释放 和 删除 COM 对 象 或 接口 的 函数 


elease 释放 CDOM 对 象 或 接 品 
当 接 口 不 需要 时 ， 用 release 冰 数 释放 接口 ， 政 回 它 使 用 的 内 存 。 当 整个 控件 或 服务 器 都 
不 带 要 了 时 ,用 delete 函数 删除 它 。 也 可 以 将 delete 函数 用 于 任何 合法 的 接口 。 对 象 的 所 有 接 
口译 动 释放 ， 并 卫 控 件 或 服务 器 本 身 也 被 删除 。 


当 包 含 控件 的 图 形 窗 口 被 删除 或 关闭 时 ，MATLAB 自动 释放 该 控件 的 所 有 接口 。 
MATLAB 关闭 时 ， 它 还 自动 释放 和 肯 动 化 服务 器 的 所 有 入 柄 。 








6.2.I4 识别 对 象 


使 用 表 6.9 中 的 函数 可 获取 与 COM 对 象 有 关 的 信息 。 
表 8-9 获取 CoOM 对 象 依 息 的 函数 





返回 COM 对 象 的 类 

册 除 给 定 类 的 COM 对 银 

确定 项 目 是 否 为 COM 对 银 的 事件 
确 定 项 目 是 否 为 COM 对 每 的 方法 
确定 项 目 是 否 为 COM 卦 银 的 局 性 

















创建 一 个 运行 Excel 的 自动 化 服务 器 COM 对 每 hb， 以 及 对 象 的 Workbooks 接口 w。 
= actxserverexcelapplication 7 
磷 王 上 ,WOrkhbhooks， 


用 class 函数 查找 变量 w 所 属 的 类 。 
tass 
ang 二 
Interface,Microsoft_Excel 9.0_Dbject_Library.Workbooks 
用 isa 函数 调试 变量 是 否 属于 已 知 的 类 。 


hisafCOM,excel.application 和 ] 
ams 一 
] 


用 isprop 函数 检查 UsableWidth 是 否 为 对 象 h 的 属性 ， 


h.ispropfC Usabliewadth 
ans = 
1 
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用 ismethod 函数 检查 SaveWorkspace 是 否 为 对 象 h 的 方法 。 方 法 名 是 有 大 小 写 区 分 的 ， 
不 能 缩写 。 


hismethodf('SaveWwrorkspace7 
ans 二 
1 


创建 mwsamp2 控件 ， 用 isevent 函数 检查 DblClick 是 否 为 该 控件 可 以 识别 的 事件 。 


= 1gule [positior ,1100 200 200 3003 
h = actxcontrol (mwsamp.mwsampetrl 2 t 站 200 200], 及 ， 


h,isevent(DPbIC1lick 
afs 三 
1 


421S MATLAB 作为 自动 化 客户 示例 
这 里 提供 一 个 将 MATLAB 用 作 和 动 化 客户 的 实例 。 


1，MATLAB 控件 实例 
MATLAB 自 带 了 一 个 简单 的 COM 控件 ， 可 以 实现 画 圆 和 显示 文本 ， 用 户 在 控件 土 单 击 
或 双击 时 ， 触 发 事件 。 通 过 运行 目录 winfanveomoeli 下 的 mwsampm 文件 ， 或 键入 下 面 的 命令 
行 来 创建 控件 。 
中 = actcontrol(mwsarmnpfmiwsarnpctrl.2， [00D300 300])， 
这 个 控件 保存 在 MATLAB 的 pin 目录 下 ， 与 控件 的 类 型 库 放 在 一 起 。 类 型 库 是 COM 工 
具 用 于 解释 控件 功能 的 一 进 制 文件 。 


2. 将 MATLAB 用 作 自 动 化 客户 
本 例 将 MATLAB 用 作 自 动 化 客户 ， 特 Excel 用 作 服 务 器 。 
% MATLAB 自动 化 客户 示例 
吧 
%% 打开 Excel， 添 吉 工 作 短 ， 改 变 活 动 才 格 
% 获取 /放置 数组 ， 保 存 


























%% 首先 ， 打 开 一 个 Excel 服务 器 


已 = actKSeTVeT(CeXCeLapplication' 


% 搬入 一 个 新 的 工作 得 
Wiorkbook = e,Workbooks,Add; 
e,Wwjisihle = 1; 


吧 使 第 2 外 表格 成 为 活动 的 
ecSheets = eActiveWotkbocok.Sheets， 


eqSheet2 = 6Sheets_getTterm ,2 
eg9heet2.Actiyate; 


% 将 MATLAB 数组 放 到 Exeel 中 
和 =[L234， 
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注意 ， 要 确保 关闭 了 涨 加 到 Excel 中 的 所 有 工作 短 。 这 样 可 以 防止 潜在 的 内 存 油 露 问题 。 


ActiyvesheetRange = 8. 点 cfivesheetSet( Range'， 和 1: 卫 2); 
ecCtiyesheetRange, watne = 各; 


冯 贺 到 一 个 范围 。 它 将 是 单元 数组 ， 因 为 单元 娄 型 可 以 包 冤 不 同类 型 的 数据 
eRange = ectivesheet.get('Range， 上 1:B275 
HB = eRange.Valne; 


噬 转 黎 为 doubje 型 和 矩 阵 。 单 元 数组 必须 只 包含 标量 
了 = IeshapefEB{:]], size( 卫 )); 


% 现在 保存 工作 夭 
eWorkbook.SaveAAsfCmyfile,xls 


中 不 保存 工作 短 ， 去 掉 下 面 语句 行 的 注释 符号 
5 WOTKbook.Saved = 二， 
9 RDIEbook.C108e， 


%% 退出 Excel， 删 除 服务 里 
%% euit: 
吕 Edelete: 


6.3 其 他 COM 客户 信息 


6.3.1 使 用 COM 集合 


COM 集合 是 支持 成 组 相关 COM 对 象 的 一 释 方 式 。 集 合 本 身 是 一 个 特殊 接口 。 它 有 一 个 
Count 属性 和 一 个 Item 方法 。Count 属性 包含 集合 中 项 目的 个 数 , ftem 方法 指定 对 集合 中 的 哪 
一 个 项 目 进行 处 理 ， 所 以 它 实 际 上 是 一 种 索引 。 索 引 的 数据 类 型 可 以 是 任何 适用 于 特定 集合 
的 数据 类 型 。 通 常 ，Item 方法 的 返 问 值 本 身 就 是 一 个 接口 。 就 像 其 他 接口 一 样 ， 使 用 完 以 后 


需要 进行 释放 。 


本 例 遍 历 集 合 的 成 员 。 每 个 成 员 本 身 就 是 一 个 接口 〈 称 为 plot， 用 MATLAB COM 对 象 
表示 时 为 hPlot)。 在 特定 情况 下 ， 会 遍历 Plot 接口 集合 ， 调 用 每 个 接口 的 Redraw 方法 ， 然 后 


释放 每 个 接口 ， 


heollecton = RhConttol.Plots; 
fori= 1heollecton.Connat 


hpPlot = hCollectioninvyokef'Ttem', 让 ; 
hPlot.Rediaw， 
hPlotrelease， 


end 
hcCohectiontelease; 


6.3.2 ”转换 数据 


因为 COM 定义 了 很 多 不 局 的 数据 格式 和 类 型 ， 所 以 需要 知道 MATLAB 如 何 将 数据 从 
COM 对 象 转换 为 MATLAB 工作 空间 中 的 变量 。 当 提取 属性 值 或 者 从 方法 返回 值 时 ， 必 须 转 


| 32 。 


换 COM 对 和 象 的 数据 。 
表 6 和 10 显示 了 COM 数据 类 型 是 如 何 转换 为 MATLAH 举 间 中 的 变量 的 。 


表 6-10 COM 数据 类 型 与 MATLAB 数据 类 型 之 间 的 对 应 关系 





















































COM 数据 类 型 MATELAB 数据 基 型 COM 数据 光 型 MATILAB 闭 据 奖 型 
Strin Warianmt 加 
单元 区 组 
ije Time Variant 数组 
MATLAB String 
Errer IDishatet *+ CDM 对 外 
Dectmal Date Empty | 
CUIYenCY Unknoswwn 
Haresult 了 记 国 
JnVUnsigneqd 人 2 4.8) Seglar Deoubte Pr 
Beoel CaTTay 
RealfSinglerTDxouhje) Usetrdefined 
Nall NaN Blob 址 能 转换 
Curreney 类 组 Stream 
Heresiilt 数组 Storage 
让 

号 HEarrmedl 六 
了 mwUmnsignedf2,49) 数 组 Denuhle 型 生 洗 学 

Stored 半生 
Beel 妆 组 Blob 对 象 
Reat(SinglerDouble) 数 组 CE 


6.3.3 将 MATLAB 用 作 DCOM 客户 程序 


分 布 式 组 件 对 象 模型 (DCOM) 是 一 项 协议 ， 它 允许 客户 通过 网 络 使 用 远程 COM 对 象 。 
另外 ,， 如果 MATLAB 所 在 的 操作 系统 运行 进行 DCOM 操作 ， 则 MATILA 可 以 作为 DCOOM 客 
户 程 序 与 远程 自动 化 服务 器 一 起 使 用 。 

注意 ,如果 将 MATLAB 用 作 远 程 DCOM 服务 器 , 所 有 MATLAB 窗口 将 册 现 在 远程 机 器 上 。 


6.3.4 MATLAB COM 支持 的 局 限 性 


MATLAB COM 支持 有 下 面 几 点 局 限 性 : 

es MATLAB 只 支持 索引 集合 ; 

es 设计 时 COM 控件 不 在 图 形 窗 口上 显示 出 来 ; 
MAILAB 只 支持 控件 事件 ， 不 支持 服务 器 事件 ， 


6.4 MATLAB 自动 化 服务 器 支持 


运行 于 Windows 系统 的 MATLAB 支持 COM 自动 化 服务 器 功能 。 自 动 化 是 一 种 COM 协 
议 ， 它 允许 一 个 应 用 程序 或 组 件 〈 控 制 者 ) 控制 另 一 个 应 用 程序 或 组 件 〈 服 务 器 )。 这 样 ， 
MAILAB 服务 器 可 以 被 任何 可 作为 自动 化 控制 音 的 Windows 程序 挤 制 , 可 作为 自动 化 探 制 者 
的 应 用 程序 包括 Excel、Access、Projeet 和 很 多 Visual Basic 和 Wisual C++ 程序 。 

下 面 介绍 如 何 创建 和 连接 运行 MATLAB 的 自动 化 服务 器 ， 如 何 从 MAILAB M 文件 或 
Visual Basic 客户 程序 调用 服务 器 中 的 函数 ， 以 及 如 和 何 使 用 影响 服务 器 的 属性 。 
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注意 ， 如 果 想 用 C 或 Fortran 生成 客户 程序 ， 建 议 使 用 MATLAB 引擎 工具 ， 而 不 是 自动 
化 服务 器 。 


6.4.1 创建 自动 化 服务 器 


究竟 如 何 创建 自动 化 服务 器 ， 与 正在 使 用 的 控制 程序 有 关 。 查询 控制 程序 的 文档 应 该 可 
以 找到 这 方面 的 信息 。 所 有 控制 程序 都 需要 一 个 程序 标识 符 (ProgID) 来 识别 服务 器 .MATILAB 
的 ProgID 为 mattab.applicatio 。 
如 果 控 制程 序 为 MATLAB， 可 以 用 MATLAB 的 actxserver 函数 创建 自动 化 服务 器 ， 
了 = actxServer matah.appJjication7 
h = 
COM.matlab.application 
通常 ， 当 控制 程序 第 一 次 与 服务 器 建立 连接 时 ，Windows 就 会 自动 建立 自动 化 服务 器 。 
也 可 以 手工 创建 服务 器 。 


1， 共享 模 式 和 独占 模式 

局 动 MATLAB 自动 化 服务 器 时 可 以 有 2 种 模式 ， 即 共享 模式 和 独占 模式 。 使 用 共享 寞 式 
时 ， 一 个 或 多 个 客户 程序 与 同一 个 MATLAB 服务 器 相连 接 。 服 务 器 在 所 有 客户 程序 间 共 享 。 
使 用 独占 模式 时 ， 每 个 客户 程序 创建 它 自己 专用 的 MATLAB 服务 嵌 。 

如 果 将 matlab.application 用 作 ProgID，MATLAB 会 创建 - :个 共享 模式 的 服务 器 。 


2. 局 动 目录 

自动 化 服务 器 在 MATLAB 根 卓 录 的 \hinvwin32 子 目 录 下 启动 。 如 果 这 不 是 你 常用 的 
MATLAB 局 动 目 录 ， 则 服务 器 进程 户 动 MATLAB 时 ， 新 创建 的 服务 器 将 无 权 访 问 该 目录 中 
的 文件 ， 也 不 会 运行 MATLAB 启动 文件 (startup.m)。 

为 了 使 服务 器 有 权 访 问 启 动 目录 中 的 文件 ， 需 要 让 服务 器 用 cd 函数 将 工作 目录 设置 为 启 
动 目录 ， 然 后 用 addpath 函数 将 启动 是 录 添 加 到 服务 器 的 MATLAB 路 径 ， 或 者 在 引用 这 些 文 
件 时 将 路 径 名 包含 到 司 动 目录 中 。 


6.4.2 连接 已 经 存在 的 服务 器 


程序 完成 操作 任务 时 ， 并 不 总 是 需要 创建 一 个 新 的 MATLAB 服务 器 实例 。 客户 可 以 用 与 
Visual Basic 的 GetObject 命令 类 似 的 命令 连接 已 经 存在 的 MATLAB 自动 化 服务 回 。 
这 里 显示 的 Visual Basic 命令 返回 MATLAB 服务 器 应 用 程序 的 句柄 h。 
了 = GetDbject(，"matiab.application" ) 
下 面 的 Visual Basic 代码 连接 一 个 已 经 存在 的 MATLAB 服务 器 ， 然 后 在 服务 器 中 执行 一 
个 绘图 命令 。 如 果 没 有 已 经 存在 的 MATLAB 服务 器 ， 可 以 先 创 建 一 个 。 然 后 ， 在 Visual Basic 
程序 中 输入 下 面 的 代码 ， 连 接 服务 器 并 让 MATLAB 画 一 个 简单 的 图 。 
Dimh As Object 
Seth = GetDbject(，“matlab.application"y 

















"句柄 hh 现在 应 该 是 合法 的 ， 
' 通过 调用 Execute 方法 来 测试 
h.Execute (PPIot[O 18]. [7 了 23]) 
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6.4.3 自动 化 服务 器 函数 


MATLAB 提供 了 很 多 示 数 , 使 得 MATLAHB 或 Visual Basic 编写 的 台 动 化 控制 程序 可 以 操 
作 MATLAB 服务 器 中 的 数据 ， 这 些 斑 数 如 表 6-11 中 所 示 。 


1. 在 MATLAB 服务 器 中 执行 命令 
客户 程序 可 以 用 表 6-11 中 的 表 数 在 服务 器 中 扫 行 MATLAB 命令 。 


表 6.11 执行 MATLABE 命令 的 放 数 
函 数 拭 。 述 
Execnte 在 服务 器 中 执行 MATLAHE 命令 
僵 令 司 以 用 单独 一 条 字符 捉 表 示 时 ， 使 用 Execute 函数 ， 例 如 


h = KGServer Enatiab application 





PPutWorkspaceDataf'A','base', rand(6); 

h.EBxecutet 航 导 :6 = 站: 

及 = hhGefwWworkspaceDataf 和 hase 

卫 = 
0.6208 1.2344 (6273 人 0.3716 0.7764 站.7036 
0.7313 0.54S8 站 ,699] 人 0.4253 0,4893 四 .48S0 
0.193 缚 人 0.9316 人 3972 人 5947 他 了 8 0.1146 


命令 不 能 用 单独 一 条 字符 串 表 示 时 ， 使 用 Feval 函数 。 下 面 的 例子 中 ， 命 令 中 包含 不 能 在 
服务 器 中 定义 的 变量 rows,cols 和 bages。 继 续 上 面 的 实例 。 


row8s=3 oos= 了 3， Pages= 2 
h.FevafTeshiape'， 1， | 各 一 ，FOTWS PoOS， PaBeS 7 


下 =h GetWotksbaceDataf 和 hase) 
玫 (, ;1 = 
0.620 澡 02344 0.6273 
避 7313 总 5488 口 .6991 
0.1939 0.9316 0.3972 
下 二 , :, 2 = 
寻 3716 0.7764 0.7036 
0.4253 .4893 人 .483 人 1 
候 3947 0 1859 0.1146 


2， 与 服务 器 交换 数据 
MATILAB 提供 了 几 个 函数 来 实现 与 MATILAB 服务 器 交换 数据 ， 如 甫 612 中 所 示 。 调 用 
这 些 函 数 时 ， 需 要 传递 要 读 写 的 变量 的 名 称 ， 以 及 包含 数据 的 工作 空间 的 名 称 。 


表 6-12 ”与 服务 器 冯 换 数据 的 函数 
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续 表 
将 字符 数组 保存 到 服务 器 中 
将 矩阵 保存 到 服务 器 中 
将 任何 类 型 的 数 担保 存 到 服务 器 中 


GetPutCharArray 国 数 实 现 从 MATLAB 服务 器 读 取 字 符 串 盆 ， 以 及 写字 符 串 值 到 
MATLAB 服务 器 。 
GetbPutCharArray 函数 将 数据 作为 SAFPEARRAY 数据 类 型 进行 传递 。 可 以 将 这 些 函数 与 
任何 支持 SAFEARRAY 类 型 的 客户 程序 一 起 使 用 。 
GetiPutWorkspaceData 函数 将 数据 作为 variant 类 型 传递 。 将 它们 与 支持 variant 类 型 的 客 
户 程序 一 起 使 用 。 这 些 函 数 对 于 VBScript 客户 程序 很 有 用， 因为 VBScript 程序 不 支持 
SAFEARRAY 数据 类 型 。 
在 MATLAB 服务 器 基本 工作 宰 间 中 将 一 个 字符 串 写 入 变量 str, 然后 将 它 读 回 到 客户 程序 。 
h = ackgservermatlab.application 
h.PutCharArrayf str'，base，-. 
Tie jests at SCafs 由 at never felt a Wound.')i 












S=h,GetcharaArmayfstr，base 
号 二 
He jests at saTs 由 at neyer felt a wound 


3， 控 制服 务 器 窗 吕 
使 用 表 全 13 中 的 函数 ， 可 以 使 服务 器 窗口 可 见 或 最 小 化 


表 6-13 ”控制 服务 器 窗口 的 函数 








氏 数 描 述 
MaxirizeComrnandWindew 在 窗口 些 面 上 显示 了 服务 器 窗口 
hititmizeCommandwindow 最 小 化 服务 器 窗口 的 大 小 


创建 运行 MATLAB 的 COM 服务 器 ， 并 使 之 最 小 化 。 
jh = actxServert taatlabapplication'y 
h.MinimjizeComimandWindow; 
4， 终 止 服务 器 进程 
用 MATILAB 服务 器 完成 任务 以 后 ， 用 Quit 函数 退出 MATLAB 并 终止 服务 器 进程 。 
终 让 服务 器 进程 ， 只 需 输 入 下 面 的 命令 。 
hoit 


5， 客 户 详细 情 息 
对 于 MATLAB 客户 ， 查 看 控制 程序 可 纪 使 用 的 所 有 函数 及 其 语法 ， 启 动 一 个 MATLAB 
习 动 化 服务 器 ， 然 后 使 用 只 带 handle 参数 的 invoke 函数 ， 即 


handle = actxserver(imatlah,application'y: 
hardle.inveke 


对 于 Visual Basic 客户 ， 服 务 器 函数 的 参数 和 返回 值 的 数据 类 型 用 自动 化 数据 类 型 表示 ， 
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它们 是 自动 化 协议 定义 的 与 语言 无 关 的 类 型 。 例如, BSTR 是 定义 为 自动 化 类 型 的 宽 字符 字符 
串 类 型 ， 与 Visual Basic 保存 字符 串 的 数据 格式 相同 。 任 何 服从 COM 协议 的 控制 程序 都 应 该 
支持 这 些 数据 类 型 ， 即 使 声明 和 操作 细节 有 所 区 别 。 


6.4.4 MATLAB 自动 化 属性 


通过 设置 Visible 属性 ， 可 以 选择 是 否 让 服务 器 程序 可 见 。 可 见 时 ， 服 务 器 窗口 显示 在 桌 
面 上 ， 使 用 户 可 以 与 服务 器 程序 进行 变 互 。 在 某 些 时 候 ， 例 如 调试 时 ， 这 会 很 有 用 。 不 可 网 
时 ， 不 显示 服务 器 窗口 。 这 样 可 能 会 使 界面 更 十 净 ， 但 也 不 利于 与 服务 器 程序 进行 变 互 。 

默认 时 ，Visible 属性 是 可 用 的 ， 或 设置 为 1。 

h = actxserverrnatlab.appPlication 》 
j Visible 
ans 二 

1 

通过 设置 为 0〈 不 可 见 》 或 1〈 可 见 ) 来 改变 Visible 属性 的 设置 。 下 面 的 命令 将 服务 器 
应 用 程序 窗口 从 桌面 上 删除 ， 

h.Visibhle = 昌 ; 
了 Visible 
as 二 

昌 


6.5 ”其 他 自动 化 服务 器 信息 


6.5.1 手工 创建 服务 器 


控制 者 应 用 程序 第 一 次 建立 与 服务 器 的 连接 时 ，Windows 自动 创建 自动 化 服务 器 。 也 可 
以 选择 在 局 动 任何 客户 进程 以 前 手工 创建 服务 器 。 

手工 创建 服务 器 ， 需 要 在 MATLAB 局 动 俞 令 中 使 用 Automation 开关 。 按 照 下 面 的 步骤 
进行 。 
《1) 在 桌面 上 右 击 吻 图 标 ， 在 弹出 式 菜单 中 单 击 “属性 ”选项 ， 打 开 “ 属 性 ”对 诺 框 ， 
默认 时 打开 的 是 “快捷 方式 ”选项 卡 。 

《2) 在 “目标 ”文本 框 中 ， 在 matlab.exe 的 目标 路 径 后 面 添加 Automation。 


6.5.2” 兹 定 共 享 或 独占 服务 器 


可 以 用 共享 模式 或 独占 横 式 月 动 MATLAB 自动 化 服务 器 。 独占 模式 的 服务 器 只 供 一 个 客 
户 程序 使 用 ， 共 享 模式 的 服务 器 可 以 由 多 个 客户 共同 使 用 。 使 用 哪 种 模式 ， 由 启动 MAITLA 
时 客户 使 用 的 程序 标识 符 确定 。 


1. 启动 共享 式 服 务 器 

ProgID 值 matlab.application 指定 默认 禄 式 ， 即 共享 模式 ， 还 可 以 居 用 区 分 版 本 的 
ProegID， 即 matlab,application.N。 其 中 N 等 于 正在 运行 的 MATLAB 的 主 版 本 ， 例 如 ， 对 
于 MATLAB 6.5，N=6。 

MATLAB 作为 共享 模式 的 服务 器 启动 以 后 ， 所 有 客户 程序 都 会 道 过 使 用 与 已 经 在 运行 的 
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MATLAEB 实例 相连 接 的 共享 服务 器 ProgID 来 请 求 连接 到 MATLAB。 换 名 话说， 绝对 不 可 能 
有 一 个 以 上 共享 服务 器 的 实例 同时 运行 ， 因 为 它 被 所 有 使 用 ProgID 的 客户 共享 。 


2.， 局 动 独占 式 服 务 器 

指定 独占 式 有 最 务 器 ， 使 用 ProgID imatlab.apPlication.single ， 或 者 指定 版 本 的 ProgID 
Iatlab.application.Single.N 。 

每 个 用 独占 式 ProgID 请 求 与 MATLAB 建立 连接 的 客户 都 创建 一 个 单独 的 MATLAB 实 
例 ， 并 且 该 服务 器 不 会 被 任何 其 他 客户 共享 。 所 以 ， 可 以 有 客 个 独占 式 服 务 器 的 实例 同时 运 
行 ， 因 为 独 贞 式 服务 器 不 被 密 个 客户 共享 。 


4 和 .53 将 MATLAB 用 作 DCOM 服务 器 


DCOM 是 一 项 协议 ， 它 多 许 通 过 浆 络 建立 COM 连接 。 如 果 正 在 使 用 支持 PCOM 的 
Windows 版 本 ， 以 及 一 个 支持 DCOM 的 控制 程序 ， 可 以 使 用 控制 程序 在 远程 机 器 上 启动 
MATLAB 服务 器 ， 

要 实现 这 一 点 ，DCOM 必须 正确 注册 ， 并 且 在 每 台 用 作客 户 或 服务 器 的 机 器 上 安装 
MATLAB。 
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第 7 章 MATLAB 与 C 接口 


7.1 MATLAB 与 C 接口 概述 


MATLAB 将 数值 分 析 、 气 阵 计算 、 信 号 处 理 和 图 形 显示 结 合 在 -起 ， 包 禽 大 量 高 度 集成 
的 函数 可 供 调用 ， 命 令 语句 功能 十 分 强大 ， 为 科学 研究 、 工 程 设 计 及 人 欢 黎 学 科 领 域 提供 了 一 
种 简洁 、 高 效 的 编程 上 有 具 。 但 是 MATLAB 使 用 的 是 解释 性 语言 ， 大 大 限制 了 它 的 执行 速度 ; 
源 代 码 的 公开 不 利于 算法 和 数据 的 保密 ， 局 限于 MATLAB 运行 环境 而 不 能 用 于 开发 商用 软 
件 ， GUI 功能 差 ， 所 提供 的 控件 和 事件 实在 有 限 。 因 此 ， 如 果 能 够 实现 MATLAB 与 VC 或 者 
BC 或 者 C++ BUILDER 等 可 视 化 设计 语言 的 交互 ， 提 高 速度 ， 美 化 界面 ， 使 程序 更 符合 
Windows 的 规范 ， 间 时 又 利用 MATLAB 的 强大 功能 ， 对 任何 人 来 说 都 是 很 有 意义 的 。 本 章 主 
要 介绍 MATLAB 与 CACH+H+H 接 口 方面 的 知识 。 

MATLAB 与 CAC++ 接 口 主 要 有 以 下 二 种 方式 。 


1，MEX 文件 

在 MATILAH 中 可 调用 的 CC 或 Fortran 语言 程序 称 为 MEX 文件 。MATLAB 可 以 直接 把 
MEX 文件 视 为 它 的 内 建 函 数 进 行 调用 。MEX 文件 是 动态 链接 的 子 例 程 ，MATLAEB 解释 器 可 
以 自动 载 入 并 执行 它 。MEX 文件 中 ，MATLAB 是 程序 的 主体 ，ME 文件 是 被 MAITLAB 调 
用 的 子 程序 。 

MEX 文件 主要 有 以 下 方面 的 应 用 ， 

s 在 MATFLAB 中 ，M 文件 的 计算 速度 特别 是 循环 迁 代 速度 远 比 C 程序 慢 ， 因 过， 可 以 
把 要 求 大 量 循环 渤 代 部 分 ， 用 CR 语言 编写 为 MEX 文件 ， 旬 高 计算 速度 ; 

e 对 已 经 开发 的 CC 语言 程序 ， 不 必 转 化 为 M 文件 而 重复 劳动 ， 通 过 添加 接口 程序 转 为 
MBEX 文件 ， 由 MATLAEB 调用 ; 

4 MAILAB 调用 CC 语言 编写 MEX 文件 , 可 充分 发 挥 C 语 言 对 低级 硬件 操作 的 优越 性 能 ， 
实现 对 AD 采集 卡 、D/A 输出 卡 等 低级 硬件 操作 。 


2. 引擎 应 用 程序 

MATLAB 提供 了 一 系列 的 例 程 使 得 别 的 程序 可 以 调用 MAILAB， 从 而 把 MATLAB 用 作 
一 个 计算 引擎 。 MATLAB 引擎 程序 指 的 是 那些 通过 管道 (在 UNIKX 系统 中 ) 或 者 ActiveX (在 
Windews 系统 中 ) 与 独立 MATLAB 进程 进行 通信 的 CAC++ 或 者 Fortran 程序 。 引 擎 应 用 程序 
中 ， 其 他 程序 如 CAC++ 程 序 是 主体 ，MATLAB 程序 作为 -个 计算 引 敬 被 调用 的 对 象 。 

引 苞 应 用 程序 主要 有 以 下 方面 的 应 用 : 

es 调用 MATLAB 数学 函数 完成 繁重 的 数学 计算 ， 充 分 发 挥 MATLAB 在 数值 计算 上 的 强 
大 优势 ， 通 过 忆 语言 编写 的 GUI 来 调用 后 台 的 MATLAB 数学 计算 功能 ， 完 成 特殊 的 需要 ， 
将 极 大 缩短 程序 开发 时 间 ; 

s 以 MATLAB Compiler 方法 将 MATLAB 的 数学 库 或 图 形 库 打包 成 COM 组 件 ， 再 与 用 
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户 应 用 程序 相连 ， 将 使 用 户 程 序 十 分 庞大 ， 上 是 MAILAB Compiler 方法 打包 不 能 将 MAILAB 
所 有 函数 库 打 包 成 COM 组 ， 而 使 用 引擎 应 用 程序 方法 ， 仅 希 少 量 的 eng 函数 就 能 全 部 调用 
MATILAB 庞大 的 数学 库 和 图 形 库 . 


3，MAT 文件 应 用 程序 

MAT 文件 是 MATLAB 专用 的 用 于 保存 数据 至 磁盘 和 向 MATLAB 导入 、 从 MATLAB 导 
出 数据 的 数据 文件 格式 。MAT 文件 囊 供 了 种 简便 的 机 制 ， 它 允许 在 两 个 平台 之 癌 以 灵活 的 
方式 移动 数据 。 而 且 ， 宪 还 握 供 了 -种 途径 来 向 其 他 单机 MATLAB 应 用 导入 或 者 导出 数据 ， 
为 了 简化 在 MAILAB 环境 之 外 对 MAT 文件 的 钙 用 ，MATLAB 给 出 了 一 个 操作 例 程 库 ， 通 过 
它 ， 可 以 使 用 CAC++ 或 者 Fortran 程序 读 写 MAT 文件 。MAT 文件 应 用 程 订 中 ，MATLAH 与 其 
他 程序 具 相 对 独立 忻 ， 两 者 癌 仅 通过 相对 于 文本 文件 而 言 较为 特殊 的 一 种 数据 文件 进行 数据 
交换 ， 


MAT 文件 应 用 程序 主要 用 于 Windows 操作 系统 与 UNIX 操作 系统 间 传 输 数 据 。 














7.2 C 语言 的 MEX 文件 


7.2.1 MEX 文件 模式 

MEX 文件 是 用 户 以 其 他 高 级 语言 〈 本 章 内 容 针 对 C 语言 而 言 ) 编写 的 ，MAILAB 可 以 
像 调 用 M 文件 一 样 调用 的 一 种 动态 链接 子 程序 .MATLAB 调用 C 语言 的 MEX 文件 的 流程 如 
图 7.1 所 示 。 
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图 7-1 MATILAB 调用 C 语言 的 MEX 文件 的 流程 图 


由 图 7-1 可 知 ，MBEX 文件 的 被 调用 与 执行 过 程 中 ， 其 内 存 管 理 为 MATLAB 管理 机 制 ， 
调用 流程 为 : 

(1) 在 MATLAB 命令 窗口 或 M 文件 中 调用 MEX 动态 链接 子 程序 ， 操 作 流程 执行 
mexFuntion 函数 ， 相 关 数 据 由 MATLAB 空间 输入 至 mexFunction 函数 参数 pths[]; 

《2) mexFnnction 图 数 调用 C 程 库 ， 操 作 流 程 执行 CC 程序 ， 相 关 数 据 由 mexFunetion 函数 
输出 至 如 程序 ; 

(3 执行 完 5C 程序 后 ， 操 作 流程 返 回 至 mexFunction 冰 数 ， 相 关 数 捐 由 C 程序 返回 至 
tnexFunction 函数 中 ， 

(4) 在 mexFunction 函数 中 ， 数 据 传 入 plhs[]，mexFunction 执行 结束 ， 禄 作 流 程 返 回 至 
MATLAB， 相 基数 据 也 由 mexFunction 的 输出 参数 pihs[] 返 回 至 MATLAB。 

MEX 文件 编写 过 程 如 下 : 
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(1) 以 尼 语言 方式 编写 用 户 CC 程序 
(2) 编写 MAITLAB 与 袜 程序 间接 口 国 数 mexFunction,， 并 在 mexFunction 中 调用 C 程序 ; 


(3)》 在 MATLAB 命令 窗口 中 设置 编译 器 和 工作 路 径 ; 


>>ImeX 一 St 和 


MATLAB 提示 : 
了 lease choose your cottpiler for building exteraal interface (MEX JI files: 
Would you like mex to locate installed compilers [y]mm? 


和 输入 y 确认 后 ，MATLAHB 提示 : 
Select a compileT: 
[ 匡 Digital Yisual Fortran version 60 in CAProgram Files\Microsott Wisual Stndio 
[2] Lee C version 2.4 in CAMATLABYaysAlec 
[9] Microso Wisual CAC++ Veision 6 站 鹿 记 AErpgram FilesMicroso 人 Wisnal 3Studic 
10] Noae 
Compiler 


输入 所 需 的 编译 器 代号 即 可 ， 由 于 C 程序 与 C++ 程序 的 兼容 性 ， 对 CC 语言 的 MEX 文件 





编译 ， 亦 可 选用 C++ 编译 器 ， 如 输入 3，MAILAB 要 求 确认 所 选编 谋 器 ; 


Blease verify your choices: 
(Compiler: Microso 他 Wisnal CAC++ 6.0 
Location: CAProgram Filesvvficrosoft Visual Stmdio 
上 Te these eofrect3([yY]AnTy 
输入 y 确认 后 ，MAILAB 显示 本 机 所 设 定 编译 器 路 径 ， 本 机 显示 为 
Try to update options je: 塘 ADocuments and SettingsWAdrmijnistratonApblication DatavM 评 ] 划 WACrkS 
MYMATLABYR14wmexobts.bat 
Frorm termplate: AVMAILAB7BIWWIN32mexoptsvmsveo0opts.bat 
Done . . . 


(4) 编译 MEX 文件 ， 得 到 扩展 名 为 .dll 的 动态 链接 子 程序 ; 

>inex FileNaimece 
若 编译 成 功 ， 在 MATLAB 工作 路 径 窗口 中 可 见 FiieName,dl 动态 链接 子 程序 。 
5) 在 MATLAB 中 像 调 用 M 文件 一 样 调 用 所 得 动态 链接 子 程序 。 





7.2.2 第 一 个 MEX 文件 


由 图 7.1 可 知 ，mexEFunction 为 MATLAB 调用 MEX 文件 的 接口 函数 ， 其 格式 为 : 
void mexFunctionfint nlhs, InxXArray *blhs[], int nrhs. const mxArray #prhs[]); 
参数 nths 和 plhsH 分 别 为 输出 参数 个 数 和 输出 数据 ,与 MATLAB 一 般 函 数 的 左手 侧 参 数 





(eft-hand-side) 对 应 ，nrhs 和 prhs[] 分 别 为 输入 参数 个 数 和 输入 数据 , 与 MATLAB 一 般 函 数 的 
右手 侧 和 参数 (right-hand-side) 对 应 ; 


MAILAB 程序 中 最 基本 的 数据 类 型 是 矩阵 和 数组 ， 而 C 程序 中 数据 类 型 有 理 型 nt、 单 


精度 float、 双 精度 double、 字 符 串 string、 结 构 体 struet 及 数组 等 。 因 此 ， 基 于 接口 函数 的 
MAITLAB 程序 与 C 程序 间 数 据 交 换 ， 最 重要 的 是 不 向 类 型 数据 间 的 传递 。 为 此 ，MATTAB 
提供 了 一 个 特殊 的 CC 语言 结构 一 一 mxAray， 以 在 C 语言 中 表示 MATLAB 的 乞 阵 和 数组 。 
在 MEX 文件 的 接口 程序 中 ， 输 出 参数 plhsfl 和 输入 参数 prhs[] 均 为 mxArmay 定义 的 对 象 。 
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MATITLAB 在 调用 MHEX 文件 时 ， 将 数据 传 给 mexFunction 的 和 苯 入 参数 pths[]，mexEunction 
在 返回 MATLAB 之 前 ， 将 和 程序 的 计算 结果 传 入 输出 参数 plhs[] 中 ， 实 现 MATLAB 与 C 
程序 数据 交换 。 此 外 ， 由 于 MATLAB 与 犁 语言 的 内 存 管 理 机 制 不 同 ，MBEX 文件 编写 过 程 
中 ， 庶 统一 应 用 MAILAB 内 存 管理 机 制 ， 序 在 接口 程序 与 用 户 C 程序 中 ， 内 存 的 分 配 与 管 
理 ， 均 采用 mx 内 存 管理 函数 ， 如 C 程序 中 malloc、realloc、calloc 和 free 范 数 ，- 一 般 以 
mxMalloc、mxRealloc、mxeCalloc 和 mxFree 函数 代替 。 
综 上 ， 我 们 编写 了 第 一 个 MEX 文件 “hi.c” 来 开始 学 习 如 何 使 用 MATLAB 提供 的 APL， 

AMEX 关 文件 AAA 

扣 nclnde "mexg th” 

WA 用户 六 程序 NAN 

double OutPnttint ndouble *rP) 

{f int 荆 double *sntin sarmnn， 

FILE * 和 1 

sm=mxCalloc(l,sizecffdouble 访 AAAH 内 存 的 管理 机 制 为 MATLAB 机 制 

这 {( 邹 1=fopenCOutPutl.tt mw)F=NULLH mexErrMseTxt" Can't open OnutPutiilew 7 

#SUID=D.0; 

fpnanatftfipj， input 和 dd Data js; 

forGi=0:i<nii++)jf*#sum=*sumHrPO] ;二 rintftp1 ”站 7.21f "PT);} 

人 prYintKi 印 1 nsuinm= 5 了 .2 W "suim)]; 

floset 扫 1]: 

Su 一 Suim; 

mxFree(sum)VAWA 内 存 的 管理 机 制 为 MATLABE 机 制 

Ietnm sum0' ADC 程序 返回 计算 值 

] 

1 接口 程序 mexFunctionHAANAAAAAAA 

void mexFiumctiontint nlhs,mxATray *plhs[],int nths, fmxAtray *#pths[]) 

finti double *rP*]Psum' 

WAN 由 pmhs[] 中 取得 MATLAR 输入 数据 

fP=mxcCalloc(nrhs,sizeofrdouble) AH 内存 的 警 理 机 制 为 MAPLAB 机 制 

forli=0;i<nrhs;ii++yPfil=mxOetScalarthrhs[ 训 ); 

1 调用 C 程 序 

sum=COutPuttnrhsrP)， 

HH 进行 数据 类 型 转换 ， 并 存 入 fihsU] 返回 MATLAB 

nlhs=nfrhs， 

Plhs[0]=mxCreateDoubleMATrixlnihs,imxREAT): 

]P=mxGetPrpihsfO]》， 

forfi=0iicnlhs:i++iEIi=i*surm， 

mxXFreeftrP)， AAA 内存 的 管理 机 制 为 MATLAE 机 制 

mxXFree(lP); 

] 

NAH11 错 果 HH 


该 程序 包括 以 下 几 部 分 ， 

《i3 MEX 程序 的 头 文件 “mex,h”; 

《2) 用 户 它 程序 DutPutO; 

《3) 对 口 程序 mexPunetion0) 。 

MAILAB 在 调用 该 MEX 文件 时 ,首先 在 Hl.e 中 寻找 接口 函数 mexFunction0)， 并 将 数据 
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传 至 mexFunction 的 输入 参数 pms[]。 让 于 prhsD 是 由 mxAray 定义 的 指针 型 数组 ，MAILAB 
将 输入 参数 地 址 赋 给 prhs[]， 将 输入 参数 个 数 赋 给 nrhs， 用 户 无 须 对 prhsh] 赋 起 始 地 址 。 并 且 ， 
MATLAB 提供 了 一 系列 函数 来 获取 输入 参数 prhs[] 的 地 址 和 数据 。 如 本 例 中 ，mxGetScalar0 
函数 来 获取 prhs[] 中 的 标量 ， 并 赋 给 C 语言 双 精 度 实 型 一 维 数组 下。 

对 于 输出 参数 pths[]， 接 口 函 煞 mmexFunction 参数 列表 中 仅 对 其 数据 类 型 进行 了 定义 ， 但 
mexFuntion 未 给 参数 blhs[j 赋 地 址 ， 用 户 在 使 用 该 参数 前 须 赋 超 始 地 址 。 如 本 例 中 ， 以 
mxCreateDoubljeMAITix 将 plhs[O 赋 为 mxArray 双 精 度 实 型 矩阵 指针 ， 记 指向 矩阵 行 数 为 1， 
列 数 由 输入 参数 nmhs 个 数 确定 。 由 于 plhsD 为 mxArray 定义 的 指针 数组 ，MATLAB 也 提供 了 
一 系列 函数 以 便 用 户 将 数据 赋 给 blhs 踢 。 如 本 例 中 mxGetPr0) 画 煞 将 plhs[0] 起 始 地 址 中 给 它 语 
音 的 双 精 度 实 型 一 维 数组 中 ， 只 要 用 户 将 所 得 数据 赋 给 下, mexFunction 函数 通过 plhsi0] 将 数 
据 从 MEX 文件 中 输出 至 MATLAB， 实 现 数据 交换 。 

在 MATLAE 命令 窗口 中 将 “hl1.c” 文件 编译 后 ， 得 动态 链接 子 程序 hl1.dll, 并 在 MAILAB 
命令 行 中 调用 。 

DeX 1 .5 
Da=h1f11.2.3,4.5) 
必 1 30 45 的 

同时 ， 由 于 用 户 C 程序 中 执行 了 文件 输出 ， 在 当前 目录 下 生成 “DutPutl.txt” 文 件 ， 输 
出 结果 为 : 


Inpult $ Dara is: 1.00 2.00 3.00 4.00 5.00 
SUID= 135.00 
以 不 同 参数 调用 hldil， 如 
>> b=th1(2,4) 
b = 
0 在 


当前 目录 下 生成 “OutPutI.txt” 文 件 ， 输 出 结果 为 : 
Input 2 Data is: 2.00 4 00 


SUm= 6.00 
7.2.3 不 则 数据 类 型 的 传递 
1. 抵 阵 


矩阵 是 MATLAB 最 基本 的 数据 类 型 之 一 ， 但 MAILAH 中 矩阵 与 和 语言 中 工 维 数组 有 
较 大 差别 。 首 先 ，MATLAHB 中 失 阵 是 按 列 方式 存储 的 ， 而 C 语言 的 二 维 数 组 则 是 按 行 方式 
存储 的 : 其 次 ，MAILAH 中 和 矩阵 下 标 从 1 开始 ， 而 C 语 言 的 二 维 数组 下 标 从 0 开始 。 因 此 ， 
MAILAB 矩阵 常 转换 为 马 语 言 一 维 数组 ,而 较 少 采用 二 维 数组 , MATLAH 和 矩阵 与 语言 一 
维 数组 癌 的 转换 公式 如 下 ， 

C_array[j#M+iFM_matrixtij) 

式 中 ，M 为 MATLAB 算 阵 M_matrix 的 行 煞 。 

将 “hlc” 作 一 定 改 进 后 , 得“*h2.e” MEX 文件 ， 该 文件 以 MATLAB 最 常用 数据 结构 〔 矩 
阵 ) 为 输入 参数 。 在 调用 MEX 文件 时 ，MATLABH 将 矩阵 型 参数 赋 给 prhs[]， 用 户 通 过 
tp=mxGetPrlprhs[i) 函 数 获 取 指 向 矩阵 prhs 针 的 指针 ， 并 赋 给 C 一 维 数 组 趾 ， 然 后 再 通过 
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M=mxGetMtprhsti) 和 N=mxGetN(prhs[ 让 获取 prhsfi] 和 矩阵 的 行 数 M 与 列 数 N， 这 样 就 实现 
MATLAB 矩阵 至 C 一 维 数 组 的 转换 ，C 程序 执行 完成 后 , 用 户 先 对 Plhsfil 赋 地 址 ， 再 将 plhs 
地 址 赋 给 C 一 维 数组 了 了 , 这 样 , 用户 只 要 对 C 一 维 数组 卫 操作 , 相应 操作 结果 就 存 入 了 plhs 加 
中 ， 实 现 C 一 维 数据 至 MATLAH 第 阵 数 据 转换 。 程 序 清单 如 下 。 


WE 和 头 广 件 ANHAAAAHAAANNNN 
熙 neclude "mexg.h” 
丰 include "math.h" 
1 用 户 C 程 序 NA 
void DutPut(EIELE* 引 iint MLint Ndoublte *TPint 订 
fint ij， 
iprintftfipl yn The 站 日 Input Data isnn" ii; 
forfi=0:i<M:i++) 
{ 
forj=0j<Njj++iiprntiffpl 扫 7.21fTPH9MT+i]); 
把 rint 放 和 1 
] 


1 接口 程序 mexFunetionWAHAAAAAAAAAAAAAAN 


void mexFunctionfint nlhs,mx 上 tray *#Plhsi,int nrhs, mxArray *prhs[]) 
[int MINLiij: 
double *TP.*1P: 
HEILE * 印 1， 
这 (fp1=fppenf OutPut2.txt yw FF=NULLI mexEmrMSETXt" Cant open OutPutfilew");} 
下 轴 S=nrhs; 
for0iicnrhs;iH+i{ 
rPemxGetPr(prhs[i) AAA 获 取 指 向 矩阵 prhs[] 的 指针 
M=mxGetM 人 brhs[i]y》， 
N=mxGetN(pms[i)，。 力 获 取 ?PrhsD] 扼 阵 的 行 数 M 与 列 数 N 
DutPutffp1JM.NIPiD， AAA 调用 忆 程 序 
plhs[]=mxCreateDoubleMATrix(MLN,mxREAL); 7 地 外 钠 初 值 
]P=mxGetPrplhs[i)， AAA 红 取 指向 拖 阵 plhs 名 的 指针 
fordi-0i<Mii++iorn=Ojji<N 诈 ++)E[ 首 *M+Hi]=sqrtCEE[* 了 MEHii]); # 通 过 也 各 Phsfil 赋 值 
] 
人 lose( 和 1， 
} 
AH 请 二 


在 MATLAB 命令 窗口 中 将 “h2.c” 文件 编译 后 ， 得 动态 链接 子 程序 h2.dl, 并 在 MATLAB 
命令 行 中 调用 。 
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32 meX h2.c 

2 9] 

>> bb=[ai3z#3a:9yal] 

>> [LEL2L3]=h2fb,2yb,3*b) 

工 1 = 
].0000 1.4142 1.7321 2.0000 2.2361 2.4495 2.045S8 2.8284 
1.7321 2.4495 3.0000 3.4641 3.8730 4.2426 二 .5826 4.8900 
.4361 3,1623 3.8730 二 .4721 5.0000 5.4772 5.9161 6. 了 246 


1.4142 2.0000 2.4495 2.8284 3.1623 3.4641 3.7417 4.0000 


2.4495 3.4641 4.2426 48990 ”5.4772 60000 6.4807 6.9282 
3.1623 4.4721 3.4772 6.3246 707911 7T7460 ”83666 8.9443 
EL3 = 
1.7321 2.4495 3.0000 34641 3.8730 42426 4.5826 48990 
3.0000 4.2426 5.1962 6.0000 0.7082 7.3485 了 .9373 8.4853 
3.8730 54772 台 7082 ”7.7460 .6603 9.4868 10.2470 了 .9545 
同时 ， 由 于 用 户 C 程序 中 执行 了 文件 输出 ， 在 当前 目录 下 生成 “DutPut2,txt” 文 件 ， 输 
出 结果 为 : 
The 避 Imput Data is: 

1.00 2.00 3.00 4.00 5.00 6.00 7.00 8.00 

3.00 600 9.00 12.00 15.00 18.00 2I00 寻 .00 

5.00 10.00 135.00 20. 的 2500 30.00 ”3500 40.00 

The 1 mput Data is: 

2.00 4.00 6.00 8.00 10.00 12.00 14.00 I6.00 

碧 .的 12.00 18.00 24. 的 30.00 “3600 4200 48.00 

10.00 20.00 30.00 40.00 ”50.00 的 00 了 .00 80.00 

The2 Input Data is: 

3.00 6.00 9.00 12.00 15.00 18.00 21.00 ”24.00 

9.00 18.00 ”27.00 36.00 上 忆 加 54.00 ”的 的 了.00 

15.00 30.00 4 行 0 鸣 60.00 5.00 %.00 105.00 12000 


2. 字符 串 
MATILAB 和 C 程序 间 同 样 可 以 传递 字符 串 类 型 的 变量 。 对 “h2.c” 文 件 作 一 定 改动 后 ， 
得 “h3.c”MEX 文件 ， 该 文件 中 ，MATLAB 传 入 字符 串 变量 至 prthsf] 中 ，mexFunction 将 字符 
串 变 量 传 入 它 字符 串 中 buf 中 ， 后 调用 C 程序 进行 字符 串 道 操作 和 操作 结果 输出 ， 同 时 和 将 操 
作 结 果 返 回 mexFunction 输出 参数 plhs[]， 以 返回 MATTLAB。 程 序 清单 如 下 。 
WEEX 冻 畜 件 FAAAAAAHHAANHNRR 
##inelude ”rnexh” 
include "String.h” 
1 月 户 C 和 程序 AAA 
VOid ICEwWordfEILE* 外 1char *rP pufehar slP bufint pufint 
{fjnti 
pFntffpl The 闻 相 np Sbjing 这 %6Sm iTP_huoh; 
forfi=0'ic<buf1'i++ife0P_buf+iy=*frP_ puf+puf -i-2) 
多 rinttffplm The 站 dOutput Seing 1: 站 Sn, 这 刘 buf 
} 
WAN 接口 福 序 mexFunctionHAAAAAAAAAAAAAN 
void nmEXFunctionfintnaihsmnxArmray yplhs[j,intnrhs mxArray *prms[]) 
{fint ij,buft; 
Char *rP buf sp _ but 
FILLE * 全 
这 (ip1= 扣 Pen OutPat3 ,tf w" -NULLI mexErrMseTxM" Cant open Outputfilewm"h} 
Hihs=nmhs; 
forli=0:i<nths;i+ 十 计 
这 mxsChartpmsfi])I=1DmexErMseTxtt"Inpat must be a string"):/ 参 数 检查 
buf=0mnxGetM(prhs[i])*mxGetN(prhs[i)+1; AN 获取 每 一 个 输入 参数 对 应 的 字符 串 太 小 ， 
如 由 于 CString 以 NULL 作为 字符 串 结束 标志 ， 故 加 | 
IP_buf=mxCalloctbuf'sizeoflehar): AMATLAB 内 存 管理 机 制 








“145 。 


IP_buf=mxCalloctbufsizeoflcham， WMATLAH 内 存 管理 机 制 
这 mxGetStringfprhs[il,rP_bufibu 让 ==1) 7 从 pmhs 吕 中 获取 输入 参数 
TeXWarmMseTxH "Not enough space,Strirg 这 truncated "); 





TeEword[ 印 TtP_hutiP hefbufi 1 调用 C 程 序 
pihs1 门 =mxCreateStingiP _bufi; / 印 ths[ 订 地 此 贱 初 秆 
ixXFreefrP_ bu 有 站， AMATLAB 内 存 管理 机 制 
IaXPFreefP_buat; 

} 

flose[ 全 1 


} 
HAHHH 铺 谓 和 
在 MATLAB 命令 窗口 中 将 “h3.c” 文件 编译 后 , 得 动态 链接 子 程序 h3.dll, 并 在 MATLAB 
命令 行 中 调用 。 
> Inex 上 3.c 
a='my book is yelow" 
hb=' school is over ， 





C= the SEY 证 lne' 

[L1L2,L3]=h3ka.b,c) 

EL1 = 

Dlley 引 上 oob YI 

L2 王 

tevG Si ]oohes 

13 = 

eu]lp Si yKs eht 

同时 ， 由 于 用 户 C 程序 中 执行 了 文件 和 输出， 在 当前 目录 下 生成 “OutPut3,txt” 文 件 ， 输 

出 结果 为 : 

TheDHnput String is: my book is yellow 

TheBoOntput String js: wolley si koob ym 

The 1 Input String js: school is Over 

The 1 Chltput String is: revo si loohcs 

The2Iput Stimng is 由 esky ishbhue 

The 2 Onutput String is: eulb Si yks eht 


3， 结构 体 与 数组 
与 C 语 言 一 样 , MEX 文件 结 栖 的 数据 是 由 若干 记录 组 成 ,每 一 个 记录 保存 在 结构 体 的 
字 自 中， 结构 保存 的 数据 可 以 是 任意 类 型 的 MATLAB 数据 。 在 MEX 文件 中 ， 创 建 结构 体 的 
基本 过 程 如 下 。 
《1)》 准备 不 同 字 段 的 数据 : 可 以 由 MATLAB 创建 ， 也 可 由 人 语言 创建 。 
“2) 创建 结构 体 数据 对 象 指 针 ; 
InxArray #Data=InxCTeateStmctMATYixfint my int nm ipt nFields const ehar 站 xieldsNamey: 
大 数 : im mxArray 类 型 矩阵 的 行 数 ， 
nmxAray 区 型 矩阵 的 列 数 ; 
nFileds ”每 一 结构 体 的 字段 数 ; 
FieldsName 每 一 结构 体 的 字 眉 名 。 
(3) 使 用 mx 函数 完成 结构 体 数 据 赋值 ; 
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mxXSetField(tmxArray *Data, int Num, conmst char *+*FieldsName, (type) Valuey 
参数 :Data ”所 创建 的 mxArmay 类 型 结构 体 ; 
Num ”整个 结构 体 的 序号 ; 
FieldsName ”结构 体 中 的 字段 名 ; 
Value 与 结构 体 中 对 应 字段 中 数据 类 型 相 一致 的 数据 。 
下 面 以 “hd4.e” 来 说 明 MEX 文件 中 如 何 创 建 结构 体 及 其 数据 返回 MATLAB 的 实现 过 程 。 
WAMIEX 头 交 件 AAA 
在 inclnade “imme 和 .0” 
1 用 户 习 程序 :C 语言 定 结 构 体 AAA 
struct PersGn 
fchar Name[IOJ; 
jnt 和 ge: 
如 过 Sex[2]， 
char 岂 ddress3O]， 
char Te 下 工 3， 
} 
HH 用 户 C 程 序 习 语言 输入 结构 体 数 撕 AAA 
void InputPersoniint nstuct Person YEP) 
{ int fchar *InputPile; 
FULE *fplI: 
ImexPrintftf"Input The FileIName Is Pertxt 
InputFile= "Perctxt ， 
近 (fipTI=tiopenfInaputFile rr)==NULELI mexErMSSTXH” Cant open 了 Pet8ilew 人 
for0i=0ji<cni;i++tjfscanRip1， 络 5 的 昌 是 8 25 2， 
PT,Naymne, 且 Pi Age,PI],Sex,P[i .和 ddress.[]. Tel); 
feitoselfp1l); 


1 接口 程序 mexFunctionAAAAAAAAAAN 

void mexFuneticntint mihs,mxArmray *#pihsfi]int nrhs, mxaArmray *prhs[ 芒 
{imnt ia 

struet Person *+P， 

了 KAITay 站 atai 

char s*Fields:pptmx 结构 体 字 段 名 

HAN 由 pmhsfl 中 到 得 MATLAB 输入 数据 
hn=(intbmxGetScalarfpihsto17 

P=mxCalloetnsizeofstmct Person))ypmx 内 存 分 配方 式 为 结构 体 分 配 内 存 
Fieldstn]= "Name" ,Fields[1]= "和 ge" 

Fiejdsf2]=" Sex“ Fie[lds[3]= "和 Address ”; 

Fieldsf4]=” ”Tel 


InputPersontn,P); Ar 调用 C 程序 

Data=mxCreateStructMATrix(T 15.Fieldsy: 创 建 mx 结构 体 
forfi=0:i<n:i++if AH 为 mx 结 稳 体 睹 值 
InXSetPField(Data0,Fieldas[O],mxCreateStrng(PEName)) 
ImxSetFietdfData 人 ,Fields[[ ,nzCreateDoubieScalarttdeub]jeNE 加 .和 e 们 ); 
TIXSetFieldtData.0,Pields[2],rxCreateString(P[I].Sexy)， 
InXSetField(Data,Pields[3] nxCTeateStrinE([I]. 和 ddress))， 


sa | d7。 








mxSetField(Data.0,Fields[4],mxCreateString 人 下 四 -IE]7; 
pihs[=mxCreateStmuctMATTix(L,15.Fields)7 将 输出 参数 创建 为 mx 结构 体 并 分 配 内 存 
plhsfi]=mxPuplicateArray(Data)ymxArray 对 象 一 结构 体 数 值 复制 
} 
mxDestroyAtray(Datal; /释放 mxAnay 对 象 内 存 
mxFree(P)JAHmx 内 存 释放 方式 将 结构 体内 存 释 放 
] 
WA 请 于 
“h4.c” 程序 中 , 首先 由 C 语 言 定义 了 结构 体 Person， 共 包括 5 个 字段 ; Namne、Age、Sex、 
Adqress 和 Tel， 各 字段 数据 事先 保存 在 当前 目录 的 “Pertxt” 文 件 中 。 
在 MATLAB 命令 窗口 中 将 “h4.c” 文件 编译 后 ， 得 动态 链接 子 程序 h4.dl, 并 在 MATLAB 
命令 行 中 调用 。 
DTnEX hh3.e 
> 人 .11L2,LL3]=h4(3) 
InputThe FileName 1 Pertxt 
L1 = 





Jame: Linh' 
各 ge: 29 
SEX 
点 ddress:， Street 
Tel: 1390000' 
L2 = 
Name: 
各 ge: 29 
Sexr RdT 
上 ddress: 号 tfeet4 
Tel 1360000' 
L3 = 
Jame: 'Su' 
点 ge: 30 
SEX 人 
点 ddress: "Sreet3， 
Tel 1350000 


其 “h4.c” 中 可 知 ， 在 MATLAB 中 调用 h4.dll 动态 链接 子 程序 后 ， 操 作 流 程 为 ， 

《1) 操作 流程 寻找 接口 函数 mexFunetion 后 ， 从 输入 参数 Prhsf0j 中 取得 需 读 入 结构 体 记 
录 数 为 3， 并 为 结构 体 分 配 相应 的 内 存 空间 ; 

《2) 为 结构 吴 于 字 正 名 ， 

《3) 调用 用 户 C 程序 ， 并 从 中 读 取 结 焰 体 各 学 眉 的 数据 ， 

《47 流程 返回 接口 程序 ; 

(5) 在 接口 程序 中 创建 mxArray 类 型 结 攀 体 ; 

《6) 为 mxArray 类 型 结构 体 各 字段 赋 由 C 程序 中 取得 的 数据 ， 

(7) 以 矩阵 数据 复制 方式 将 结构 体 数据 复制 至 接口 程序 输出 参数 plhs 中 中 ， 

《8) 释放 内 存 ， 返 回 MATLAR。 
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7.2.4 MEX 文件 内 存 管理 


MATLAH 与 C 语言 内 存 管 理 机 制 存在 显著 差别 。MATLAB 采用 自动 内 存 释放 机 制 ， 即 
在 M 文件 或 MEKX 文件 中 ， 内 存 的 分 配 与 释放 ， 主 要 由 MAILAB 的 解释 器 来 自动 完成 。 但 在 
C 语言 程序 中 ， 内 存 的 分 配 与 释放 由 程序 员 编 号 代码 来 完成 。 因 了 此 , 在 MATLAB 调用 C 程序 
的 MEX 文件 中 , 内 存 管理 仍 显 得 十 分 重要 , 下 面 分 别 介绍 MEX 文件 中 内 存 分 配 与 释放 函数 。 
(1) mxMalloc 
void *ImXMallocfsize tm; 
参 数 : n ” 需 分 配 的 字 节 数 。 
返回 : 若 分 配 成 功 ， 则 返回 一 个 指向 所 分 配 动态 内 存 起 始 地 址 的 指针 ;否则 ， 终 小 ME 和 
流程 并 返回 MATLAB。 
说 明 :， mxMalice 函数 自动 分 配 n 字 节 的 连续 内 存 空 间 ， 并 在 MATLAB 内 存 管 理 器 中 注 
册 返 回 扒 栈 入 口 Gretrurned heap spacej,MATIAB 内 存 管理 器 有 MEX 文件 中 , 所 有 由 inxMalioc 
泛 数 分 配 的 内 存 注 册 清 单 ， 当 MEX 文件 执行 完毕 或 意外 中 止 时 ， 流 程 返回 MATLAHB 前 ， 
MATLAB 内 存 管理 器 将 自动 释放 该 清单 上 的 所 有 内 存 空 间 。 
内 存 杰 放 函 效 :， void mxFreetvoid *ptrm)， 
2) mxCalloc 
Yoid *TmxCallocfsize_ tn, size Tt size1; 
和 参数， nm 需 分 配 的 元 素 个 数 ， 
size 所 分 配 每 一 元 素 字 节 数 ， 通 常 由 sizeofO 函 数 取 得 。 
返回 : 若 分 配 成 功 ， 则 返回 一 个 指向 所 分 配 动态 内 存 起 始 地 址 的 指针 : 否则， 终止 MEX 
流程 并 返回 MATLAB。 
说 明 : mxCalloc 函数 自动 分 配 nysize 字 节 的 连续 内 存 空间 ， 并 将 这 mn 个 元 素 初 值 均 赋 为 
0， 同 时 也 在 MATLAB 内 存 管理 器 中 注册 返回 堆栈 入 口 〈returned heap space)。MATLAB 内 
存 管理 妖 有 MEX 文件 中 所 有 由 mxcalloc 函数 分 配 的 内 存 注册 清单 ， 当 MEX 文件 执行 完毕 
或 意外 中 止 时 ， 流 程 返 回 MATLAB 前 ，MAITLAB 内 存 管 理 器 将 自动 释放 该 清单 上 的 所 有 内 
存 空间 。 
内 存 杰 放 函数 ，void mxEFreefyoid *ptrji 
《3) mXRealloc 
void #mXReallocfvoid *ptr size_t Size)， 
参数 ，ptr ” 需 重 新 分 配 内 存 的 指针 ; 
size 需 重 新 分 配 内 存 的 字 节 数 。 
返回 ， 若 分 配 成 功 ， 则 返回 一 个 指向 所 分 配 动 态 内 存 起 始 地 址 的 指针 否则， 返回 0。 
说 明 : mxReailloc 函数 对 ptr 重新 分 配 内 存 ， 即 使 操作 失败 ， 也 应 进行 内 存 释放 。 否 则 ， 
易 产 生 内 存 泄漏 。 
内 存 杰 放 诅 数 : void mxEFree(void *ptn; 
(47 mxCreate+ 困 数 
MEX 文件 中 , MATLAB 提供 了 众多 的 mxCreate 函数 来 创建 不 同类 型 的 mxArmay 放 据 类 型 
对 象 。 这 些 函数 操作 成 功 后 ， 返 回 相应 的 内 存 地 址 〈 指 针 );， 和 将 则 ， 返 回 不 同类 型 的 错误 信息 。 
由 mxCreate* 函 数 创建 的 mxArray 数据 类 型 所 占 内 存 空间 ， 均 由 InxDestroyArray0 函 数 释放 。 
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常用 的 mxCreate 函数 主要 有 如 下 几 种 。 
CD mxArray * ImXCTeateDoubteScalar (double value); 
夫 娄 :， value ”所 创建 的 mxArray 数据 类 型 (1 行 X1 列 ) 的 初 值 。 
返回 : 若 操作 成 功 ， 则 返 同 一 个 指向 所 创建 的 mxArray 数据 类 型 (1 行 X1 列 ) 的 指针 ; 
否则 ， 终 止 MEX 流程 并 返回 MATLAB， 
说 明 ;， 该 函数 与 下 述 语句 作用 相同 ， 均 可 返回 一 个 指向 1 行 X1 列 的 mxAray 类 型 指针 。 
a=IXCreateDouhbieMATxCL 1 mxREATJ; 
*#TIDXCTetPrpa] = value; 
内 存 酸 放 范 数 : void mxDestroyArray(mxArfay #array_ptr)， 
色 mxArray *mxCreateStringfconst char *ste)， 
参数 :sa 所 创建 的 mxArray 类 型 的 字符 串 〈 仅 工行 ) 的 初 值 。 
返回 : 若 操 作成 功 ， 则 返回 一 个 指向 所 创建 的 mxArmay 类 型 的 字符 串 指针 ;， 否则， 返回 
NULL， 
内 存 释 放 函 数 : void mxDestroyArray(mxArray *array_ptr; 
地 mxArray *mxCreateNumericMATIrixfint m，int n，mxClassID class，PmxComplexity 
ComplexFlag); 
参数 : mm 需 创 建 的 mxAnay 矩阵 的 行 数 ; 
na ， 需 创建 的 mxarray 矩阵 的 列 数 ; 
class ”数据 类 型 , 取 值 为 ; mxDOUBLE CLASS, mxSINGLE_ CLASS, mxINTS_CLASS， 
ImXUINT8_ CLASS，mXINT16_ CLASS， mxXUINT16 CLASS mxINT32_ CLASS， PmxUINT32 
_CLASS,InxINT64_CLASS, and mxUINT64_ CLASS， 分 别 对 应 双 精 度 、 单 精度 、8 位 整 型 、 
8 位 无 符号 整 型 、16 位 末 型 、16 位 无 符号 整 型 、32 位 整 型 、32 位 无 符号 整 型 、64 位 整 型 、 
全 位 无 符号 整 型 等 数据 类 型 
ComplexFlag 到 值 为 mxREAL 和 mxCOMEPLEX， 分 别 代表 所 创建 的 mxArray 此 
阵 为 实数 型 失 阵 和 复数 型 矩阵 。 
返回 ; 若 抬 作 成 功 , 则 返回 一 个 指向 所 创建 的 mxArmray 类 型 筷 阵 的 指针 ; 否则 , 终止 MEX 
流程 并 返回 MATLAB。 
内 存 杰 放 函数 ，void mxDestroyArray(mxArray *array_ptn， 
由 mxArray *mxCreateDoubleMATrix(int m, intn, mxComplexity ComplexFlag)， 
参数 : mm ” 需 创建 的 mxArmay 矩阵 的 行 数 ; 
nm 需 创建 的 mxAray 扎 阵 的 列 数 ; 
ComplexFlag 取 值 为 mxREAL 和 mxCOMPLEX, 分 别 代表 所 创建 的 mxArray 托 阵 
为 实数 型 矩阵 和 复数 型 矩阵。 
返回 : 若 操作 成 功 , 则 返回 一 个 指向 所 创建 的 mxArray 类 型 矩阵 的 指针 ; 否则 , 终止 MEX 
流程 并 返回 MAILAB。 
内 存 厅 放 范 数 :void IIXDestroyArray(InxATay #array_ptr); 
名 mxArray *mxCreateCellMATrixfint my int m: 
参数 :mm 需 创建 的 mxArray 矩阵 的 行 数 ; 
nm， 需 创 建 的 mxArmay 矩阵 的 列 数 。 
返回 ; 若 操作 成 功 , 则 返回 一 个 指向 所 创建 的 celt mxArray 类 型 的 指针 。 否则 , 终止 MEX 
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流程 并 返回 MATLAB。 
内 存 释 放 函 数 ， void ImxzDestroyATray(mxXATay xarray_ptr); 
MEX 文件 内 存 分 配 与 释放 例子 ， 可 参见 “hlc”“h2.c” 和 “h3.c”。 在 给 MEX 文件 的 输 
出 参数 plhs[] 赋 值 , 除 各 例 中 所 采取 赋值 方式 外 , 述 可 使 用 memepyO 昂 数 或 mxDuplicateArray() 
函数 ， 进 行 数据 复制 。 
“hlc” 文 件 中 ， 在 使 用 phhs[0]=mxCreateDoubljeMATrixfl.nlhs,mxREAL) 给 plhs[O] 分 识 内 
存 地 址 后 ， 对 应 的 内 存 数据 复制 memcpy() 函 数 为 ; 
ltP= mxCalloctmlhs,sizeofkdoubley; 
fori=0O:i<nlhs;i+-AHIPH]=isuim 
taetmepy(mxGetPr(plhs[0]),]Pnlhs*sizeafrdouble): 太 使 用 内 存 数据 复 制图 煞 memecpyf7 
InxFree0Py 
“1].c” 文 件 中 ， 在 使 用 phs[Ol=mxCreateDoubleMATrix(lnlhs,mxREAL) 给 plhs[O 分 配 内 
存 地 址 后 ， 对 应 的 mxDuplicateArrayO 国 数 为 ， 
InxArmray 由 0 天 定义 mxArmay 类 型 的 指针 变量 *1P0 
]PO=rmaxCreateDoubIeMATrix(InlhsmxzREAL HH 并 对 1po 分 配 内 存 地 址 
1]P= mxCalloec(nlhs,sizecffdonble); 
forfi=0icnthsiit++NP[i]=i*sarmy 
memcpytmxGetPrtlPO), 1]Pnlhsysizeoftdonble)) ANW 采 用 内 存 复 制 丙 数 将 数据 复制 与 1PO 
plhs[O]=mxDPuplicateArraytlpD): AH 使 用 内 存 数据 复制 机 数 mxDuplicateArray 
TaxXFreellP); 
mxDestroyArrayflIPO) AAA 释放 1P0 
在 MEX 文件 内 存 管理 中 ，MATLAB 还 提供 了 内 存 变 量 保 留 机 制 ， 用 户 可 以 声明 MEX 
文件 中 的 变量 或 某 一 段 内 存 为 保留 属性 ， 方 法 是 使 用 mexMakeArrayPersistent 或 
DeXMakeMemeoryPersjstent， 由 于 MAITLAB 内 存 上 自动 释放 机 制 不 能 释放 用 户 申 明 的 具 保 留 属 
性 的 变量 和 内 存 段 ， 在 MEX 整个 文件 过 程 其 至 MEX 文件 终止 技 ， 这 些 被 保留 的 变量 和 内 存 
段 一 直 不 会 被 自动 释放 ， 用 户 可 在 整个 MEX 文件 中 使 用 这 些 变 量 和 内 存 ， 但 当 MEX 文件 终 
止 时 ， 用 户 必 须 上 自己 帮 放 这 些 变量 和 内 存 段 , 为 防 正 因 MEX 文件 意外 终止 而 导致 操作 进程 不 
能 执行 用 户 编号 的 内 存 释 放 代 码 ，MAILAB 提供 了 mexAtEixt 函数 ， 该 函数 在 MEX 文件 在 
内 存 中 被 清除 时 调用 ， 因 此 ， 用 户 对 申明 了 保留 属性 的 变量 和 内 存 段 的 灵 放 代码 ， 一 般 通过 
该 函数 调用 执行 ， 以 避免 内 存 汇 漏 。 
1 mexrAtEixt 狼 行 时 调用 的 冰 数 
vbid DealtocPersistentO) 
{ 
InexPrintff "wm 退出 MEX 文件 ， 清 除 内 存 mmy 
ImXDestroyArrayPOy， 
ImXFireefbufy; 
】 
AAA 接 日 程序 InegFunctionAAAAAAAAAAAAAAHAAAAAAAAH 
void mexFuinctiomfint nlhs,mx 和 May +plhs[],int ms, taxArray *pths[]) 
{ 
MIXAITaY #iP0; 
Chay #bhu 届 
1P0-mxCreateDoubleMATExt 1.nlhs,rmxREAT)， 
ImexMakeArrayPersisrent(IPO0): AAA 申明 1P0 为 保留 属性 





























* TS51* 


司 [ 伍 | 下 
mexMiakekietmoryPersisienttbufy; WAN 中国 baf 为 保留 改 性 


人 DAnaceerawentis JW MEK 去 件 在 内 存 中 性 清除 时 间 用 mexAIExi 示 数 ， 
抽 1W 一 最 一 牛 WEX 竟 件 中 只 一 个 TAI 民 ME 夯 烤 ， 葛 用 户 枫 快 嘱 丰 
/Ne LEE 天 获 时。，MATLAB 只 二 用 最 近 的 mexAtExtt 函 业 


是 后 值得 一 提 的 mxDestroyArraylmxAray wariy_piri 丽 数 ， 访 函 数 平 仅 释 放 本 aray_pir 
所 指 的 mxArmay 数据 的 惠 行 种 nm 列 宰 介 ， 还 释放 了 所 有 与 之 相关 的 诸如 宝 部 指针 Pr、， 翰 部 指 
针 革 等 肉 存 地 址 。 因 此 ， 对 于 MEX 文件 中 的 输出 参数 ， - 肯 不 使 用 mxDestmayArmay0 函 数 来 
释放 其 内 存 ， 而 由 MATLAB 的 自动 内 存 管理 机 制 来 粹 放 。 


7.2.5 MEX 文件 调试 


与 其 他 语 吉 蝙 程 一 样 ， 用 户 馈 写 的 ME 交 件 彻 难 保证 一 次 成 功 ， 福 往 需 要 进行 大 量 的 仙 
斌 工作 。MATLAB 提供 了 不 同 操作 系统 下 调试 MEX 文件 的 方法 。 鉴 于 Visual C++ 的 强 夫 调 
武功 能 及 其 对 忆 程 序 的 非 客 性 ， 本 节 以 “Te” 为 例 ， 简 要 办 组 Mierosoft Visaal Sbrdia 折 下 
WEX 文件 的 调试 方法 ， 

shLen 变 件 的 调试 步骤 如 下 ， 

(1 在 MATLAB 而 专 窗 口中 ， 以 -选项 编译 所 请 试 的 文件 ，MATLAB 自动 为 所 生成 的 
NMEX 去 件 添加 登 要 的 侧 试 信息 。 

一 二 到 

[2 在 Windows 而 专 行 (开始 一 运行 输入 "msdev DAMATLAB_Cunexaldl ，Windows 
启动 Mierasof Visual Studio 二 并 打开 了 hle 文件， 其 中 “DAMATLAB_Cumexhl-dll 为 村 机 
shi” 误 件 存 巾 目录， 

[91 打开 Eraject-=Settiags.， 设置 枉 ， 在 “Settings For Debug” 对 话 眶 中 ， 将 “Exeeulable 
fr 二 bug sessiog" 设 为 “CNIATLAB7TWbinywin32NMATLAB-exe ， 其 中 “CAMEATLABT” 击 本 
机 WMATLAB 安装 目录 工 图 7:2]， 






转世 了 MEN 充 件 弹 试 属性 设置 
画 | 医 贡 4 画 


[4 在 WieiosaWisual 雪 idi 训 打开 的 “hie” 中 ， 
和 将 光 标 称 至 需 位 查 的 村 上 ， 衬 秆 断 点 ， 热 行 调试 《图 
73i 用 户 按 下 畔 试 慷 钼 后 ，WTierGaaR WTSUa Sudio 而 调试 
局 动 MATLAB， 用 疡 需 在 WMATLAB 章 专 窗口 申 调用 图?3 Wereosiafi WasalSiaigia 右 司 试 藤 音 
std， MEX 执行 至 丙 户 所 设 断 点 时 ， 鲁 程 停止 于 
ER 人 ART 与 id 二 看 的 ses 古 点 此 ， 用 户 再 获 按 下 调试 接 鲁 后 ， 久 程 屿 灶 执 行 并 停止 
于 下 一 断 点 ， 徊 此 牢 环 ， 直 至 所 有 断 点 完毕 ， 


7.26 MEX 应 用 程序 开发 实例 


末节 采用 两 隐 言 屋 的 人 工 神 经 网 络 祖 秋 忆 语言 程 序 汶 例 ， 说 明 如 何在 原 有 尼 程 序 革 础 上 
凡 写 MEX 去 人 忻 。 两 陷 舍 层 的 BE 同 阁 模 型 订阅 7-4 所 隙 。 


彩 具 请 一 辣 1e11 国 二 星 Icedti 重 三 局 Li 








一 王 六 全 而 4 二 硬 三 站 本 中 恒 二 全 二 的) 
困 二 hh 两 赴 陪 层 了 FF 慎 弄 
其 中 ， 矿 传递 画 数 ， 第 一 明和 第 二 层 取 为 tamsig' 函 数 ， 第 三 层 取 为 purelinm' 函数， 
醒 1 上 熙 草 为 证 1 层 板 值 和 阅 香 ; 
5 呈 ， 人 分 别 为 第 1 2 3 层 神 坚 元 数目 ; 
忠 输 六 癌 量 ; 
EL 本 呈 认 别 为 第 1 3 屋 输 出 外 果 : 
调 蝶 过 程 中 的 台 学 嵌 型 ， 
直 阳 只 三 他 几 呈 伏 一 辣 一 作 一 闻 JGAHam 
放生 记 四 一 订 一 和 一 咎 NG 
本 呈 省 二 下 三 介 于 丰 1 二 二 厂 且 人 
在 本 (二 二 而 三 页 于 人 二 丰 [3 
式 中 ， 是 动量 系 葛 ， 妾 是 学 习 率 ， 往 足 
LE 二 | 个 雪 丰 去 | 
”为 击 屋 的 世 感 性 
“人 pge” 程 序 情 音 娩 下 
JW 二 让 必 
机 Bclude <asilitblts 
机 本 上 6 ci 
ET 


后 | 间 加 半 -之 旺 Fl 直 -上 : 
天天 站 “本 语 肌 ” 


二 外 号 要 


*，134。 


#dqefine DDN 30 六 Number of Neural net cells 
define DM 500 1Number of Saimples 
#efine DL20 ADOutput frequency 

#define LP 0.125 普 Learrnine Velocity 

idefhine NSS ID000 


用户 CC 程序 -start AAA 

AAA ilogsig fnction; 全 Pureline functioni 

douhbie flfdouble xfreturn fdoublei(L1L+expf-x)DD; 

dowble 时 1tdouble xdeubte 划 : 地 =tdouble)yexpf-xyNTeturn tpALI+tp)# 人 LT 外 让 
deuble 如 (double xitetatn Xi 

double qi3tdouble xfretuyn 1.0; 


AH 和 前 和 请 请 

Bp3_CO 

{ 

int jjs0,s1.s2,.53njjn0ONStep; 

doubte E.arfagamauermmerr0， 

double pPIDNIIDMJ,tUDNIIDM],a0O[DN]:ee[DN]; 

deuble aa0IDM],aali[PN],aa2iDN].aa3[DN],ss1[DN]ss2[DPN].ss3IDN]nnifpNLnn2IDN]an3[DNJ]; 
dourble bbJIDMIbb2DN].bbs[DPN],dbblIotDNIdbb20fDN].dbb30[DN],dbhbl[PNdbb2[DN]; 
qdouble gbp3JDM]; 

double wwlIDN]IIDNww2IDNIIDNJww3[DNIDN]; 

double dhwwl[DNjIDN]dww2z[DN]IDN].dww3[DN]ILIDN]: 

double dwwJDOIDN]IDPNJdww20IDN]IIPN]dww30IDN]IIDNJ; 

AAA 

double kk[MNSS].ErT[NSS]; intk_DL; 

IT APray *TP[]].#HPI1J,srrP[IIT 9 ]; 

AAA 


char kDataPie ,out PSS:FELEB YipD +ip 了 ,fp2; 
er0=S. 光 PE=(doubleyle-10: arfa=LP;, gama=0.45; 
AAA 


DataFile="J6.Pt AAA 输入 文件 名 

Aseanft" o5" DataFiley; 

这 (ipO=PppetDataFile rr ==NULLiIDEXEIMSETxHK Cartopen OutPeifilewm 
Fout=strduptDataFile 因 FEss="-Ttxt "strecatt(FEFoutFss); 

这 (ip1=fopenfFoutl ww" 让 ==NULLIinexErTrMsgTxtf Cantopen Outputfilew );} 
FEOUI=sStrdup(DataFilejEFss= -Txt streat(ROuUt FesST 
iip2=fopenfFEout rw" ==NULLJIimexETMsgTxt(” Cant open DutPutfilew 7) ) 


病 canl 谎 名 个 同 可 中 间 旱 划 上 卓 赂 日 品 间 赂 插 玫 于 玫 了 放 TD.50, 相 31 及 S2 放 53. 诡 arfa, 碳 二 ammna 有 NS 
for(ij=0 汪 <n3jj++]f 

frli=b:i<cs0:i+ 十 ) 合 can 人 fp 和 噬 焉 , 玫 pP 丘 证 D 元 PPHDis Inaput Sample 

forgi=0ics3ii++if 在 can 家 各自 “强直 市 下 交 机 上 计 target Sample 

] nn=no0; 这 NSteP>=NSS*DLINStep=NSS+DL-1; 


1 Thitial WwW 区 BEB within 
ferfi=0:i<sl;i+t+fbblfil=rand(0y32767.0for(j=0:;j<s0j+THwwlIi]D=rand0732768.0} 











forfi=0;<s2;i++bb2[i=rand0732767.0;for(i=0j<s1i+t+Jww2[=rand0732768.0;] 
forG=0:i<s3:i++ifbb3[i=rand0/32767.0for0j=D0j<s2iHH+)Www3 的 D 站 =rand()732768.0;} 
forG=0O;i<csiit++jfdbbiOi=0.0:for=O<soO:j++iww100]DFO0.C) 
forfi=0i'i<s2;i++fdbb200T=0.0:fnr0=0J<s1t++kiww200]D0=0.0;)} 
forli=(i<s3ii++idhb30H=0.0;for0=0j<s23++ww30DU0.03} 
AR 

K_DL=k= 

Whiler] 

forjj=0.jj<najj++if 

forG=0ii<s0si++Jaa0fi=ppD] TD 

forG=0ii<s3ii++Jttn[=ttti[]; 

AAA Prepropagating aa0[] to aa31] 
forfi=0:i<si:i++nni[il=0o:ternij=-0:j<sOj++)nnl 提 =nml0il+wwlDTlsaaofi];} 
forG=0ii<s1;i++Jnn][Ii=nntD]-+Hbbp1lD:aalli= 人 nnal[i5:1 
ji=0iics23i++na2[= 让 OO-OJ<sS1 + 十 癌 = 之 十 W 2 用 aa 和 
fri= 人 is<s25i++JfDnn2f 人 =nn2i]+bb2[i;aa20]=fltnna2[y 
foni=Q'i<s3;i++)J{fnn3fil=0.0:ford=0Jxs25j++)Jnn3finan3[ 区 +ww3[]0]*aa2f;] 
forfi=0'i<s3:1+-HDn3 人 =nn3[ 人 +bo3fiaa361=ftn33[ 科 ee[]=tt0[-aa3[ 计 
AR 

er=0.0; fpni=(ii<s3;1++JTTerrstdoubleyfabsfeefiJ)err(douhleifabs(ee[ 癌 3 
WHAT Caealahng sensitivity ss 

forli=0:i<s3:i 寺 十 ii3S3[[]=-2#df3trna3[)*seefi 

fordj= 直 j<s2:j++)tssS2[ 站 -OforCi=DO;i<s3:i++)ssS2[ 计 =ss2[iHafltnn2[])zww3[] 人 sss31; 
forj=0j<slj++)fssi[i=Diforli=0;i<s2;i++)sslfi=ssIfj]+GfLCnnITD])#ww2[]TT*ss2[i;j 
HAAANAAANNRGEenulating dww 皮 dhbandand Renew theww 攻 bbh 

fori= 力 ij<sl;i++iiorgy=0;jj<s0j++)gwwl[I]0]=gamaxdww1no[iO-(1-gSamajy*yarfarss1[il*aa0[j]; 
fori= 人 ii<s2;i++Eor(=0i<S1 i++jdww2DT]=8amasdww20[j[]-(- 放 a09 和 arfat+SS2[i*aal[j]; 
fori=0i<s3;it+)for =0j<s2ij++Jdww3 呈 [=Bamakdww301i[]-(1 -Eartha)FatfarsS3[ 扑 #aa2[ 记 ; 
forfi=0;i<slji++jdpbI[=gamat#dbb1iOfil-(L-gama)jyarfa*ssjfiT: 
forli=0O:i<s2;if+kibb2[i]=gama#dbb20[il-(1-garma)karfasss2(i; 
fori=0ii<s3;i++hkibb3[i]=garmasdbhb30fi-fL-garna)y#arfakyss3fi]: 


Ti 人 <8 5 和 十 二 DG=0:j<sDij 十 并 画家 ] 站 [= 克 克 1 有 +dw 有 1 的 得 ww10JD=dww1i6[D:} 
fori=f:ics2; 寺 +jforG=0jjs<sljH+iww2 区 0]=ww2 罗 HHdww2t:dww20 呈 [和 =dww2 回 用:} 
ferfi=0:i<s3'i++)ford=0j<s23j+H{ww3fili=ww3f 中 Haww3t 人 jl:daww360[=dwsw30D;] 
fori=0;j<sjl'H+)ifbbl0i]=bbi[i+Hdbbl[i:dbptno[i=dbb1l 上 :|} 
forfi=0:i<s2;i++)tbb2[il]=bpb2[ilHdbb2[:dbb20[i=dbb2[i;} 

forfi=0:1<s3;i++)ibb3Di=bb3[ 计 HHdbb3[ 妆 :dbb30[=dbt 了 人: 

} x+ endofforji=jicnijj+H) 


AAA 

ike%DL==0{ 

kk[k_DL=(doubleik) Erk_PL=etr; 

fprintftfp],mAn3gd LEADELerD 
NipexPrinH0 ntep=od erT=%10. 开 arfa= 儿 6.4f gama= 只 下 4 S1= 呈 ds2= 邮 中 EDL，err，arfa， 

Barmay 8s1， Sa 

K_DPLAH+i 

]  Wend ofifK5%DL==0) 

这 em<EIk>NStEpybreak: 

Tendotwhilefl》 


”135 。 


”13536。 


NM 调用 MATLAB 命令 作 计 算 误差 图 
rpP[0F=mxCreateDoubleMATYix(NSS,1 mnxREAL) AAA 和 注 : 在 怠 程 序 中 ， 答 阵 行 数 与 列 数 须 
WA 为 comst 类 型 ， 否 则 ， 内 存 数 据 复制 时 出 错 ， 并 终 小 MATILAR 
WiettticpPyEXGSUEPTCOE[O]) KK _DLYSizeofdoubley); 
IP[O]=txCreateDoubleRMATrix0ONSS,] .mxREATIL 

ImemcpytmxGetPrlP[Oj Prnk_DIL#sizeoffdoubleh)y; 

IDexCaNMATLABT IET Blot 
ImXDestroyAerayfPIO);mxDestroyArraytP[Io]); 

AAA DutputThe 刚 W 人 BEB 

fprintfrip1 nn 冯 d 名 昌 生 和 攻 于 30.81.52.83 攻 和 

ipaintffpl nm yiordj=0j<sl;j++) fiptintttfp1wm7: 
forli=0ji<s0;i++jiprintttfpl ”站 fww1DII):iprnttpp1  %% 下 ,bbi[y} 
printttfpl nm'"fori=0j<s2344+) ffprintfcfplwa: 
forli=b;is<slii++jiprinti(ppl” 站 了 ,ww20][iyfprintKfp1， 听 还 ,pb2[jhy;} 
印 rin 直 外] mm Jiforj=0j<s3:j++i TiprintR 和 pn ); 

fordi= 直 is<s23i++itptintfp1， 失 上 fww3[ 站 [isiprintffip]1 ”5]Pbb3[]);] 
外 rintfgp1, nn 


HH Foreastin AAA 
AH 

fcanflfpO 中 d, 底 mn: 

forjj=0jjicn 和 ++iforG=Oii<sD:i++)Ecanf(fpO， 中 ]P ,让 pp 有 六 : 
forji=Oiijcniiji++if 

fori=ii<s03ji+-H)aa0[i]=pp[il[]; 
foni=Ui<sl;i++t)[fnalI=00forgj=0j<s0O:j++)anlG]=nnl[i+wwl1r[ij#aa0D]:} 
forli=0;i<sl;i++ifnnl[i=nni[i+bbtiD;8aatD=ECnnl[i);) 
forli=0jics2;i++inn2 加 -0.0:orj=0js<slij++)nn2[i=nn20]+ww2f10]*aalb];] 
forfi=0;i<s2;i++inn2[i=nnm2[ijHbp2[il;aa2[i]=Pfnn2[ 订 7 
tori=0ii<s3si++j{an30=0ODhfori=0j<s2:i++jnmn3f]=6n3[+ww3 乓 TI*aa2 站 ; 
forfi=0ii<s3:i 二 nn3[i=tn3[ 问 +bb3[:aa3[ 二 总 (an3[i]); 
AR 

fprintfp1， wm fori=0'ics3: 计 +fiprintfttp1, ”9%6lf"aa3[i); 
kkHjj]=pew(10,aa0[9]); Prm[il=pow(10,aa3[O]); 

1] 挛 endof for 和 

NA 调用 MATLAB 命令 将 预测 结果 以 图 形 方 式 显 出 
ITP[O]=mxCreateDoubleMATrix(70,lanxREAIN AH/ 注 : 在 C 程 序 中 ， 和 矩阵 行将 与 列 数 须 
ANNA 为 const 美 型 ， 否 则 ， 内 存 数 据 复制 时 出 错 ， 并 终止 MATLAB 
imnenmacpy(tmxGetPrCTP[O]),kknfsizeogdouble)， 
]IPI0=mxCreateDoubleMATrixT70 ,1mxREATIY， 
IIeIcpynxGetPrDPLIO]bErnysizeoffdeouble); 

IEeXCaMATLABKterE TPRP Bleot"y 

ImexEvaStringf "xlabeltdakd) 

IEXEYalStiringt ylabelf settermermtrtrn hy 
ImXDestroyAIray(rrP[O])tnxpPestroyArayrlIP[O]); 
HA 

feioseffp0yy flosefip17; 

于 

1 月 户 C 程 序 -nd 


AN 接口 程序 mexFanctionAANN 


Wi Te 汪 ENeHROGEIYE Di 和 AT 让 二 时 证 本 [ HR， 入 于 成 于) 

| 

放 E 

站 本 二 人 站 二 

TI 证 aRg[ 亲 和 

博 rPe 一 人 ) p_i: 

各 [ 呈 Te 并 IT 全 下 碟 全 ”本 5 它 到 | LE 人 .Praitl Te inaraier IE 时 二 e 二 仙 昨 

| 

ANNWNENGRNS RAR 

从 程序 清单 申 可 知 ， 与 一 般 MEX 充 件 一 样 ， 租 序 册 三 部 分 构成 ， 头 广 件 ， 用 户 已 程序 

代 妈 ， 援 口 程序 。 访 程序 的 接口 务 数 极其 简单 ， 仅 从 输入 大 数 中 计 取 一 个 尾 型 数值 ， 以 刻 断 
程序 是 理 调 用 用 户 忆 程序 ， 若 为 0， 调 用 用 户 忆 程序 ， 否 刚 ， 程 序 报错 井 运 回 MATLAB， 而 
在 用 户 忆 程序 中 ， 羽 作 了 少量 履 改 ， 妇 内存 谷 配 与 料 放 , 程序 因 各 种 模 误 钴 些 止 退出 震 方 面 ， 
同时 ， 在 用 户 程序 中 ， 训 加 mexCallMATLABO 函 数 柬 调用 MATLAB 中 的 plot 侧 令 ， 间 将 
计算 误差 和 态 测 结果 以 疼 形 方式 显示 出 来 图 7.5)， 生 现 MATLAB 与 已 千 间 混和 埋 编 程 ， 










前 了 BF 了 贡 本 
?7.3 C 引 敬 应 用 程序 模式 


7.31 MATLAB 引擎 库 函 数 介 细 


引 称 应 用 程序 的 实质 是 把 MATLAB 作为 一 个 引 整 , 它 区 许 从 用 户 的 己 程 序 油 用 这 个 引 敬 : 
在 运行 时 ， 引 区 作为 一 个 进程 茸 独 扼 行 ， 忆 程序 也 作为 一 个 进程 昔 融 运行 ， 二 看 立 疝 以 COM 
[Windows 操作 系统 ) 通信 机 制 进 行 数据 灾 正 。C 程 序 调 用 MATLAB 的 流 各 如 图 7.6 所 示 。 
计算 引擎 虚 用 程序 与 图 7.1 所 示 的 MEX 文件 流程 让 好 相反 ,是 以 程序 为 主体 的 ,通过 engine 
接口 以 后 台 方 式 局 动 MATLAB， 间 以 引擎 库 函 数 调用 MATLAB。 


下 和 村 让 





Mallab 程序 


C 程 凤 
坊 数 据 绒 型 ， cngtt 接口 


Int， 习 oa ， Matiab 数据 
double，Strning， 桨 型 ， 上 矩阵、 
和 组 


Struet。， ect 








图 7-6 Windows 操作 系统 下 的 计算 引擎 应 用 程序 调用 流程 
MATLAB 引擎 库 函 数 以 eng 为 前 绥 , 常用 引 获 库 函 数 如 表 了] 所 示 . 各 引擎 图 数 简介 如 下 。 
表 7-1 MATLAB 常用 引擎 库 函 妆 


序 车 函 蝇 功 能 
1 engOpen 启动 MATLAB 引擎 
2 entClose 关闭 MATILAB 引擎 


engGetwVariable 从 MATILAB 引擎 中 获取 一 个 MATLAB 拖 阵 














3 
纤 en 直 PutWariable 向 MATILAB 引擎 发 送 一 个 MATLAB 抢 阵 
5 engEvalString 执行 一 个 MATLAB 羡 令 
| 6 | engoutpuatpafter | 创建 个 存 傅 MAITLAB 文本 输出 的 组 区 
engGetvisible 获取 MAELAB 引擎 的 可 见 状态 
engSetVisible 设置 MATLAB 引擎 的 可 见 状 态 








(12 engOpen 
Engine #xengOpentconst char *startcImd); 

参数 ，startecmd 在 windows 操作 系统 下 ， 该 参数 一 般 设 为 NULL， 

返回 ， 指 向 MATLAB engine 的 指针 。 

说 明 ; 由 于 MAILAB 引擎 在 Windows 操作 系统 下 的 通信 机 制 为 COM 的 ServerClient 机 
制 ， 这 焉 要 MATLAB 在 本 地 计算 机 上 注册 MATLAB engine COM Server， 注 册 方 法 为 : 在 
Windows 命令 行 〔 开 始 一 运行 ) 输入 “MATLAB Fegserver” 即 可 注册 。 

《2) engClose 

int engClose(Eneine #ehp); 

参数 : ep 已 打开 的 指向 MAILAB 引擎 的 指针 。 

返回 ， 操 作成 功 返 名 0， 否则 返 问 1。 

说 明 : 操作 失败 主要 旦 试图 再 次 关闭 早已 关闭 的 MAILAB 引擎 ， 

(3) engGetwariable 

mxATTray +*engtCretVariable(Engine *ep, collst char *var name); 
参数 : e 已 打 片 的 指向 MATLAB 引擎 的 指针 ; 
var_ name 欲 从 MAILAB 引擎 空间 中 获取 的 变量 名 。 

返回 :操作 成 功 返 回 指 向 新 分 配 的 mxArray 类 型 所 阵 ， 否 则 返 河 NULL。 

说 明 : 在 不 需 使 用 该 矩阵 后 ， 用 户 程序 度 释 放 该 筷 阵 内 存 空 间 ， 以 免 造 成 内 存 泄 漏 ， 

(41 engPutYariable 

int emgPutVariable(Engine *ep, const char #var name, cohnst IIXATTay #array_phtm; 
参数 : e ”已 打开 的 指向 MATLAB 引擎 的 指针 
var name MATLAB 引擎 空间 中 的 变量 名 ; 











"。 1358 。 








array_ptr 用 户 程序 中 已 定义 的 mmxArray 类 型 指针 。 
返回 : 操作 成 功 返 回 0， 否 则 返回 1. 


说 明 : 当 MATLAB 引擎 空间 中 存在 与 var_name 参数 同名 的 mxArray 类 型 扎 阵 时 ， 其 数 
据 被 覆盖 ， 否 则 ， 在 MAILAB 引 敬 空间 中 创建 以 var_name 参数 为 名 的 mxArray 类 型 扎 阵 ， 


《5) engEvalString 
int engEvalString(Engine *ep, const char #string)， 
参数 ， ep ”已 打开 的 指向 MATLAB 引擎 的 指针 
string 和 欲 在 MATLASB 中 执行 的 命令 。 
返回 : 操作 成 功 返回 非 零 值 ， 和 否则 返回 0。 
(6) engOutputBuffer 
int engOutputBuffer(Engine #*ep, char #p, int ); 
参数 : ep ”已 打开 的 指向 MATLAB 引擎 的 指针 ; 
p 指向 所 创建 的 字符 缓冲 区 指针 ; 
n 组 钟 区 字 节 数 。 
返回 :操作 成 功 返回 0， 香 则 返回 1。 
说 明 : engOutputBuffertep, NULL, 四 关闭 所 创建 的 组 冲 区 
《7) eng(etVisible 
int engGetVisible(Engine *ep, bool *value); 
歼 煞 : ep 已 打开 的 指向 MATLAB 引擎 的 指针 ， 





value BOOL 型 指针 ， 若 印 所 指 的 MATLAB 引擎 可 见 ， 其 值 为 1， 否则 ， 为 0。 


返回 : 操作 成 功 返 回 0， 和 否则 返回 1。 
(8) engSetVisibie 
int engSetVisible(Enegine *ep, bool value); 


参数 ; ep 已 打开 的 指向 MATLAB 引 获 的 指针 ， 


value BOOL 型 数值 ，value=]l 设置 ep 所 指 的 MATLAB 引擎 可 见 ，vatue=0 设置 


ep 所 指 的 MATLAB 引擎 不 可 见 。 
返回 ， 损 作成 功 返 回 0， 否 则 返回 1， 
谱 明 : 若 ep 所 指 的 MATLAB 引擎 可 克 ， 则 用 户 可 将 其 用 户 变 互 式 界 面 使 用 。， 


7.3.2 MATLAB 引擎 应 用 程序 示例 


本 市 以 一 个 简单 的 C 程序 为 例 ， 说 明 MATLAB 引擎 应用 开发 过 程 。 
HA 未 文件 
丰 mejnde "esine-， 
##imciuade "stqioh" 
熙 ncelnde "conjioh" 
AAA EC 程序 
int maindt 
AAA 打开 引 敬 
Enagine *epi 
斌 (ep=engOpentNULELJD)==NULLI{fprintf "mnCant Open MATELAB enBNTEW JeXIK-173] 
AN 通过 引 敬 库 郴 数 调用 MATLAB 命令 





EngEvalStringte，X=020.] ;129+Piy 必 
engEvalString(ep，y=sin(x]: 
engEvalString(ep plOHX 7 人 
engEvalString(ep, "xlabelfX 7 
enagEBvalString(ep,"ylabelfCY 7 人 7 
printf( nn Press anykey 地 continuew 天 
getchg 

AAA 关闭 引擎 
ifengClosetep)I=0)[printft"mCant elose MATLAB engine aormallym");exitC-D?] 
Printt(wm MATLAB engine 让 Overn ); 
TetuTn 心 :} 

AHNW 错 曙 

该 程序 可 分 四 个 部 分 ; 

(1) 头 文件 ， 除 一 般 已 程序 的 头 文件 外 ， 引 擎 应 用 程序 须 包 括 摧 nclude "engineh" 头 文件 

(2》 在 C 程序 中 ， 调 用 engOpen0) 函 数 打 开 MATLAB 引擎 ; 

(3) 在 忆 程 序 中 ， 通 过 eng 库 函 数 调 用 MATLAB 命令 : 

(47 在 已 程序 结束 之 前 ， 调 用 engClose0 数 关闭 MATLAB 引 敬 。 

与 MEX 文件 编译 相似 , 在 编译 引擎 应 用 程序 之 前 ， 需 通过 mmex -setup 来 指定 以 不 同 语言 
编写 的 引 敬 应 用 程序 的 编译 器 。 由 于 各 种 编译 器 的 设置 较为 复杂 ，MATLAB 为 用 户 提供 了 各 
种 编译 器 的 设置 参数 , 称 为 编译 器 选项 文件 , 它们 存放 于 %%MAILABRoot2tVbinvwin32mexopts 
目录 下 。 在 该 目录 下 可 以 看 到 ，MAILAB 为 用 户 提供 了 从 Borland C 〔 从 Bec5.3 一 Becc5.6 版 
本 )、Fortran (df5.0~-df6.6 版 本 )、MSVC (MSVC5.0~-MSVC7.1 版 本 ) 和 LCC 等 十 几 种 编 
译 器 的 编译 选项 文件 。 用 户 对 引擎 应 用 程序 的 编译 ， 只 需 以 mex -setup 指定 编译 器 ， 并 采用 
与 指定 编译 器 相对 应 的 编译 选项 文件 即 可 。 如 采用 LCC 编译 器 对 “engl.c” 的 编译 过 程 为 ; 

在 MATLAB 命令 行 输入 

>> TeX -Setup 
Please choose your compiler for building extermal interface (MEX) fies: 
Would you like mex to loeate installed compilers [y]ja7 

MATLAB 提示 用 户 是 否 重 新 指定 编译 器 ? 输入 y 确定 重新 指定 编译 器 , MATLAB 列 出 本 
机 上 所 安装 的 编译 器 及 其 安装 路 径 ， 并 提示 用 户 选 取 相 应 的 编译 器 (以 下 为 MATLAEB 列 出 的 
笔者 本 机 上 可 用 的 编译 器 ， 共 3 个 )， 


Select a compiler: 

[1] Digital Visual Fortran version 6.0 种 CAProgram FileeNMicroso 人 在 Vismal Studin 
巴 ] Lec CvYersion 2.4 in CNMAILABYASYSVcc 

[3] Microsoft Visual CAC++ Yersion 60 im CAProgram Fiiesuvficrosoft Visual Sbdio 
[ONone 


人 Ditnper; 
输入 2 指定 所 采用 的 编译 器 为 Lec C version 2.4，MATLAB 机 求 用 户 再 次 确认 所 输入 的 
选项 扫 
Please verify yaour choices: 
Compiler Loc 女 了 4 


Location: CAMAILABAsysyec 
上 Te hese eoTrect2f[y]m): 


"100， 





帆 及 了 确认 指定 LeeCz4 为 指定 蝙 谋 路 ， 
Try 四 Undate optionk File CADOcaments and SeltiagaAdaninisaatorwPptication DahNMAThWerks 
4 让 民生 让 国电 下 
IE 丰 ERTL 起 避 下 耐 1 王 全国 由 E 人 本, 耻 三 
至 此 用 户 指定 虚 用 程序 的 护 译 占 为 LCC 蝙 译 点 ， 相 庶 的 编译 改选 项 文件 为 
Iceengnaaiapisbat。 因 此， 对 “mnalc” 的 蝙 详 击 + 
wm 区 EAIMATLABTibinwin3y2umiexoptsleceaErmatoPts-bat 二 昌 晤 ] 
若 引 擎 应用 程序 到 错误， 篇 译 威 功 后 ， 在 Carent Dineetery 和 窗口 中 可 香 二 EL 是 We” 可 执 
行 立 件 ， 在 Windows 布地 行 【开始 一 和 运行) 输 六 “DATLAB_CVErEineweusl“ 
[DAMATLAB_ CIEnsine 为 笔 坦 “englexe” 文件 存储 路 径 )， 可 以 看 到 ，enBLexe 以 后 台 方 
起 和 岛 动 MATLAB【 图 了 7 和 图 了 -8 共 而 专 行 提示 符 汶 ?。 阳 户 可 在 读 窗 口中 执行 MATLAB 
苔 种 市 对 和 函数 调用 。 若 愉 六 以 下 古寺 后 ， 可 得 图 了-9。 
遇 | 研 0 本 [二 且 
了 人 RE 
生 汪 上 上 人 二 区 生 
了 町 二 本息 


肥 设计 着 。 年 卫 于 间 届 醒 庆 项 硕果 本 本 


于 iFi 汪 1 
FE ii 本 晤 加 辣 。 三 训 有 读本 和 





图 77 引擎 程 译 以 后 台 方 式 启动 的 MATLAB 而 地 窗口 


733 在 Visaul C++6.0 中 编译 、 调 试 引擎 应 用 程序 


与 其 他 语 表态 程 一 样 ， 用 户 编 写 的 引擎 应 用 程序 很 装 保 证 一 次 成 功 ， 福 往 需要 进行 大量 
的 调试 工作 ，MATLAB 提供 了 刺 同 括 作 系 续 下 引 苞 频 用 程序 的 调试 方法 。 鉴 于 Visaal C++ 荔 
能 强大 的 编译 和 调试 功能 ， 用 其 对 书 语 言 程序 的 蔓 容 性 ， 术 节 在 “angle” 文件 基础 上 ， 奶 人 
部 分 引 而 库 函数 得 到 “eng2e"， 并 以 eng.e 为 例 说 明 Visaul C++6.0 中 编译 调试 引 理 应 用 栓 
序 的 步 圣 。 
enEZe 是 通过 引 笔 库 函数 erigGetwariablet) 从 引 敬 启动 的 MATLAB 空间 中 娠 数据 蛤 入 它 
剖 译 ， 并 在 已 福 序 中 将 引 秘 计算 结果 因 出 到 立 本 去 件 “ng20utbxt” 中 。 整个 引擎 应用 程序 创 
建 过 程 旭 下 。 
= 161 。 









面 元 & 囊 营 程 刘 Teagler 市 执行 正六 友 数 站 果 


图 了 9。 用 疡 在 MATLABE 击 亏 窗口 中 投行 使 续 冰 友 个 蜗 

111 局 动 Mierosoft Wisual Studio 后 ， 执 行 Fie 一 New， 在 弹出 的 对 话 框 中 选择 “Wia32 
Conaole 上 piication” 作 为 如 特 蚀 是 的 应 用 程序 类 型 ， 间 在 ProjectName 广 本 框 中 物 入 应 用 程 
序 工 程 铬 ， 也 就 是 以 后 生成 的 可 执行 程序 名 ， 吉 “Eng2"， 点 击 OK 确定 【图 了 10)， 在 接 下 
来 的 对 话 枢 中 选 An empty Piajeet 了 图 7-111。 划 忆 Finiah 完成 引擎 应 用 程序 工程 创建 。 

f2y 在 所 创建 的 引擎 应 用 程序 工程 中 , 打开 已 有 C 程 序 或 新 建 已 程序 ( 见 Eng2c 程序 清 
单 ) 

[3 引 [区 雇用 程序 三 树 器 路 尺 设 置 ; 在 Wierosof Wai Sida 的 Tools 一 Dpiions 对 语 幅 
中 ， 声 击 Directories 项 ， 在 读 对 话 谎 Sew drectorieg for 中 选取 Inelude 人 es 并 在 Direciories 
让 座 扣 wEARMATLABTAEXTERNWNCLUDE" 1; 图 了 127， 在 Show dreetoriasfor 中 选取 Tibrary 
files 砷 在 Dineelaries 中 六 如 SCAMATLABTEXTERNVLIBYWIN32WMICROSOFITVMSVC60” 【图 
7 131， 点 击 日 已 党 成 彤 至 由 乱 赣 局 。 
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曾 元 计 “ 引 敬 机 用 加 帮工 往 创 人 Tajsea 二话 椎 被 填 





图 站 柱 村 庶 用 程 公国 编译 让 柱 设 Tede 有 本 5 


画 站 符 于 二 
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图 了 43 引 开 虑 用 程 认 的 凡 译 四 径 访 填 【DIS 曾 晤 ) 


[4) 引 节 应 用 程序 链接 路 径 设 置 ， 在 Mierosoft Wisual Studio 的 project 一 Settings 对 话 框 
中 ， 点 击 1Liak 项 ， 在 读 对 请 框 ObjectUlitrary maodules 中 深 加 1ibhmx.lib libeng:tib 完成 链接 路 
径 设 轩 【 团 也 1455 





图 下 -14 引 敬 应 用 程序 链 科 赂 径 设置 


至 此 ， 己 完成 了 引擎 应 用 往 序 编译 。 链 接 等 设置 工作 ， 可 以 对 所 人世 建 的 引擎 应 用 程序 进 
行 编译 ， 调 试 并 执行 引 拿 应 用 程序 ， 


二 卜 格 中 到 


UN 三 Be 杏 序 清 衣 WA 
直 me 所 让 时 

上 ET 二 “ 司 击 总 肌 ” 

nelade ecniah” 

ENNGC 得 库 : 

int rasinf) 

| 

所 | 本 说 和民 遇 于 | 

启 直 而 于 


有 LE 时 六 
NT 开 引 敬 








Engine *ep， 
iep=engOpen(NULLI)==NUELLipniatff CantOpen MATTLAB 1 Xi 
MA 通过 引擎 库 函 数 调 用 MATLAB 命令 

enEEVvaiStringfep， xx 一 人 :个 ,1 :2#Pi: )， 

enEEvalStringfep, y=Sintx7 

engEvalString(ep， yl1=cos(X)3 

eIIgEYvalStringtep，plot AT 

eneEvalString(ep, "xlabelCX Di 

enhegEvalStingtep, "ylabel0Y 

ANNA 通过 引擎 库 函 数 将 后 台 MATILAB 空间 中 的 数据 传 入 C 程序 
D=ImXCEINTIenOGetVariablefep， Ri 

CX=IIXGetprengCietVariablelep xi 
Cy=ImXUetPtrfengCetVariablefeP，y ”7 
cy1=mXGetPrengGetVariab]etep, yl: 


Priniftt An Press anykey to continuew"); getchO: 

AAA 关闭 引擎 

放 engClosetep)i=0printtf AnCant close MATIITAB engine normallyat exit -1 
Print An MATLAB engine i6 Overt 

1 将 MATLAB 引擎 计算 结果 输出 

iip=fopeof eng2Dutt ww Di==NULL)Tprntt” Cant CDPeHn OatPuttilewt :exitD7 
fori=0:i<nii++jiprintttfp,”%3d 12.4f 3612.4f 中 12.4fwoiex[iley[ieylD)， 
AN 释放 内 存 

TIXFreelexh IIXFreetcy)， 

世 losedfp7; 

rehmn 0;]} 

11AA 铺 东 


7.3.4 MATLAE 引擎 应 用 程序 实例 开发 


本 节 通 过 引擎 库 函 数 油 用 MATITLAB 神经 网 络 工具 ， 来 求解 72.6 中 “BP3.c” 两 隐 含 屋 神 
经 网 络 问题 ， 以 进一步 说 明 MAITLAB 引擎 应用 开发 过 程 。 


1， 训练 函数 简介 
该 是 隐 含 层 的 神经 网 络 问 题 求解 ， 算 法 采用 有 动量 的 梯度 下 降 法 。 在 MATLAB 神经 网 络 
工具 箱 中 ， 担 供 了 如 下 两 种 训练 方法 。 
《1) 先 构建 网 络 并 设 定 训 练 用 算法 ， 然 后 再 应 用 最 基本 的 批 处 理 训练 函数 train0)。 
Pet=neW 人 PR,[S1.52sSm[TF1TF2....TFiBTRBLFPP): 
参数 : PR ”输入 样本 极 值 ， 一 般 由 minmax0 函 数 取得 ; 
[sil 第 i 层 神经 元 数 ， 
TFi 第 1i 层 传递 函数 ， 常 用 的 有 1ogsig'、tansig 和 Purelin' 三 种 ， 默 认 值 tansig' 
BIE 训练 函数 , 常用 的 有 : traingd 、traingdm'、'traingdx' vtainrp' 等 , 默认 值 traingdx'; 
BLF 阔 值 和 权重 学 习 通 数 ， 默 认 值 Jeamgdm'; 
PF 演示 函数 ， 默 认 值 "mse'。 
fnettYE,PLAH=train(NETRTPiALVVTV)， 或 [nettl=trainNETPT， 
参数 ， NET 网络 结构 ; 
P 网 络 输入 ，NiX 习 的 矩阵 《JW 为 输入 向 量 数 目 (Ni=netnumInputsj， 为 总 


“1605。 








T 训练 目标 ，Ntx Ts 矩阵， 默认 值 为 四 《Nt 为 目标 同 量 数目 (Nt = 
net.numyargets), Ts 同上 ); 

Pi 初始 输入 延迟 条 件 ， 默 认 值 为 [0]; 

Ai ”初始 延 返 条 件 ， 默 认 值 为 [0]; 

VV ”有 效 向 量 ， 默 认 值 为 []; 

TV ”检测 癌 量 ， 软 认 值 为 []。 
返回 :net ”网络 结构 ; 

训练 记录 《〈 回 显 及 演示 )》 

阿 络 输出 : 

也 网 络 错误 ; 

ET 输入 延迟 条 件 ; 

Af ， 延 退 条 件 。 
(2) 直接 用 traingdm0) 函 数 训练 。 

Fnet,tAc:E] = trainzgdmnet,Pd TAGQ,TS,VVTV) 

参数 与 返回 说 明 见 方法 (1)。 
训 红 参 数 设 置 说 明 如 表 7-2 所 示 。 


甫 7-2 Traingdm 训练 参数 设置 说 明 
说 表 

最 雯 训练 步 数 ， 融 认 值 为 JD 

训 颖 要 求 精度 ， 对 认 人 悄 为 0 

学 习 率 ， 默 认 什 为 001 
| 基 坟 拓 败 次 娄 ， 默认 值 为 5 
动 昔 因子 ， 歌 认 值 为 09 
met.trainPararmurnin_gra 了 | 最 小 袖 讶 要求， 默认 值 为 1e-i0 
net.trainPararm show | 显示 训练 先 代 过 程 ， 歌 认 值 为 23，NBN 不 型 示 
nettrainParamtime 最 大 训练 时 间 ， 默 认 值 为 in 


训练 终止 条 件 如 下 《只 满足 其 中 的 一 个 条 件 ， 训 练 结束 ): 
es 训 红 时 步 数 达 到 预定 值 ， 

# 训练 耗 时 达到 预定 值 ; 

训练 误差 小 于 预定 值 ; 

下 旗 梯 度 小 于 预定 值 ， 

训练 失败 次 数 达 预定 值 。 


， 引 蔡 应 用 程序 清单 

该 引擎 应 用 程序 的 网 络 结构 模型 及 数学 模型 见 726 节 。 引 擎 应 用 程序 清单 如 下 。 
NA 头 文 件 

#include "engine.h" 

扫 nclmde "stdio.h" 

其 ineliade "Ronio,h” 

折 nelude "string.h” 

AAARC 程序 



































ho 


s 166 。 











jhit Iran 


{ 


FILE *+fp0,*fpt 

int ij,s0.81 ,S2,S3.nsn0,ts; 

Char * 站 ataFile,*Fss,*sPFout， 

旭 leub 刀 扣 me'; 

IEXTTay 可 避 , 机 站 水 出 8 二 六 汪 kic, 训 TS 
了 ngiie yefp: 


DataFile="JG.tP AAA 输入 文件 名 

这 (tp0=fopen(Datahlle ri==-NULLIPrint 人 ”Cantopen DutPutiiiew exit(0);] 
Fout=strtunTDataFile]:Fss=”"-Ttgt strcat0Fout,FSs); 

这 (tpl=fopenfFout w ==NULLJ{prinat( Cantepen OntPutiilew yexitOn 


3=InxCreatePouabjeMATFixfl,3mXREATLJ; 

LI=mXCreateDorbleMATORCT 1,mXREEAEL 

Me=mIXCTeateDounbleMATrixfl1mXREATD)， 

Ts=mxCteateDeoubleMATIXCL] mxREAL; 

fscanflfpO， 5 国 和 日 晤 可 后 昌 听 和 咯 各 手持 又 十 反 生 放 全 让 9, 朗 S0, 朗 8T 朗 S2, 度 s3, 度 攻 大 Ime ,让 的 h 
AAA 将 网 络 控制 参数 赋 给 mxArmay 和 矩阵: 8 

+fInXCGetPrS)HO)=tdouble 和 1; xmxCetPr(ShHly=(doubleys2: 
yxOetpPrSlHhal=(dobuble)s3; (metPprS)+3=0double)s3， 
xfnxCGietPrELDIF=tdoablei mxGebprMcy)=(donhblemec *(mxGetPrTs))=(doublelts; 
Ph=imxCreateDoubieMATIXSOn IIKREAEL 

tImXCreateDoupieMATTX(sO.n,mXREAT 


HH 输入 样本 与 目标 向 量 并 冉 给 mxArmay 矩阵 ，p&&1t 
ford=0j<nj++if 

forfi=0:i<s0:i+ 二 Escan 代 人 0，%6 二 (mxGetPr(PH*s0+iy 
forG=0i<s3iH+jEscanflfpD，%% 直 InXGetPr( 人 +j#80O+iDy 

|] hn=no; 

1 输入 预测 

契 canffip0，5 人 各 放 nD)a=mXCreateDonbieMAITixfs3.nmxREAL》 
forj=0ij<njf++lforli=0:i<s0: 计 +)iscanflfipO 冯 ] 直 (CnxGetPrta)+j*s34+ 和 1 


NA 打开 引 敬 

这 (ep=engOpen(NULL)==NUILLIPrint AnCanmtOpen MAILAB enginewmn"]jiexit(0):} 
WA 通过 引擎 库 函 数 调 用 MATLAB 傅 令 

engPutVariabletep,"ep_p"p); 1 将 学 习 样 本 置 入 引擎 空间 
engPutVarablefep,"ep_tot Ai 尾 目 标 样本 重 入 引擎 空间 
engPutwVariableftep,"ep_8",a7 jl 将 预测 样本 置 入 引擎 空间 
engPutWariable(ep,"ep_S",S) MA 将 相关 网 络 参数 置信 引擎 空间 
engPutVariablefep, "ep_LI LTD 

engPutwariabletep, ep_ fc“ ,Me): 

engPutwariablefep ep_ "Ts); 


engEvalString(ep net=new 人 minmax(ep_phep_S,fIogsig' lagsig,purelin' ,traingdhm']:: 
/构造 BF 网 络 

engEyalStringtep. nettraitParam.show=200; 人 六 回 量 一 次 所 经 过 的 计算 时 步 
engEvalStringtep nettrainPatatmn.lr=ep ET 好 学 习 率 


engEvalStringfep nettrainParam.mec=ep Meci 1 动量 项 


107“* 











engEvijSting(ep, et.UainParsrm_epochs=ep_ Ts 7 预定 时 步 
esEvalStritgfep, ictLiainpartreoal=le-5 70) 凡 训 练 要 求 精度 
EHEEvalSiringlep, heLtrainParam .tme=in 允 六 无 训练 时 间 限 制 
EngEvalStangfep,"[nettr]=trainfmetieb pep 7 六 训练 网 络 


engEvalString(epep_h=simtnetep_ai Ti AAA 样本 预测 


printtfnPress anykey to plotm"y getchO; AAAW 作 预测 曲线 
eHEEvalStringlep，ep_X=(1001Aep 和 ep_y=( 人 10.0).4ep_b; 
engEvalSttingrep. plotfep Xep 7 人 
engEvalString(ep，xlabelDaterd Ti 7 

enmgEBvalsStrngrep. ylabel(Displacementimnn 7 和 


1 天 测 竺 果 返 回 

printff "npPress anykey to return and engClose getch: 

forfi=03jic<n:i++iiprintt(fipl 0%3 站 12.4f 0212.4f 名 
iDYXGOetPTCenECetwariahletep，ehb_x +D,*(WxtjetPrlengtjetVariable(ep."ep_7 7)++i); 


HH 关闭 引擎 

iengCIosetep)Jt=0{printff canteiose MATLAB engine nornatiyw")iexit(-t)} 
PTintg An MATLA 了 Bengine is OVemn 

AH 将 MATLAB 引擎 计算 结果 输出 

1 酸 放 内 存 

mxDestroyArray(P)， InxDestroyAmay(b;， ImxDestroyArray(a]， ImxzDestroyAitray(S)， 
InxDestroyATiray(LrD; mxDestroyamay(Mc)， mxDestroyArrayfTs)， 

fclose(fp0); floseffpD 太 关 闭 文 件 

Teturn 及;} 

HH 请 更 AAA 


7.4 MAT 文件 模式 


7.4.J MAT 文件 格式 介绍 


MAT 文件 是 MATLAB 提供 的 一 种 特殊 的 数据 文件 格式 -一 -MAT 格式 ， 它 是 一 种 二 进 制 
将 式 文件 ， 扩 展 名 为 .mat， 这 些 *.mat 文件 头 带 有 设备 签名 ， 因 而 可 以 独立 于 操作 平台 ， 从 而 
实现 不 同 操作 平台 间 的 数据 传送 。 

MAT 文件 格式 如 图 7-15 所 示 ， 所 括 文 件 头 和 数据 ,其 中 文件 头 〈(Variablelnfo》 部 分 主要 
包括 文件 描述 、 版 本 号 及 标识 等 ， 共 占 128 字 节 ;， 文件 数据 〈Vatiable》 包括 数据 类 型 、 数 据 
长 度 和 数据 三 部 分 。 因 此 ，C 程序 对 MAT 文件 的 读 取 函数 〈 表 73)， 可 相应 地 分 为 两 种 ， 一 
是 读 取 mxArmay 变量 的 头 部 信息 和 变量 数据 ， 二 是 仅 读 取 mxArray 变量 的 头 部 信息 。 


| 


图 7-15 MAT 文件 存储 格式 





上 和 8。 








表 7-3 怠 程 序 对 MAT 冯 件 的 读 职 函数 


甘 财 一 个 MAT 文件 
从 MAT 文件 中 获取 mearmay 失 阵 列表 
获取 “个 ANSIC 文件 指针 给 MAT 文件 
ImatGetVariahieInfo 从 MAT 文件 中 仅 装 载 mxArmray 矩 性 的 头 部 信息 
matDeletewVariabje 从 MAT 文件 中 删除 一 个 mxArmay 蝶 阵 
matGetNextVariabie 从 MAT 文件 中 装载 下 一 个 mxArray 年 阵 
matGetNextVariableInfo | 从 MAT 文件 中 人 装载 下 个 tmxaArmay 虐 阵 的 头 部 信息 
| 10 | matputwariabke 将 一 个 mxArray 矩阵 写 入 MAT 文件 

1 matPurVarishleAsGlohal 将 mxArmay 矩阵 作为 全 局 空间 的 变量 写 入 MAT 文件 



































如 | 加 | 站 











《12》 matOpen 
MATPile *matOpen(const char *hlenarme const char *modey: 
参数 ，fllename ”向 打开 的 MAT 文件 名 
mode 和 欲 打开 MAT 文件 的 读 写 模式 〈 表 7-4)。 


表 7-4 MAT 文件 主要 打开 模式 









| R | _ Read 模式 ， 邵 只 该 模式 
RS 横 式 






多 
TU Update 模式 ， 即 可 读 取 ， 写 入 模式 
Write&zip 模式 ， 即 压 种 数据 格式 写 入 寞 式 


返回 : 操作 成 功 返 回 一 个 指向 MAT 文件 的 指针 ， 否 则 ， 返 回 NULL。 
《27 natClose 

iniimnatClose(MATRile *rmfp); 
参数 ，rmfp ”指向 MATFile 文件 的 指针 。 
返回 ， 抬 作成 功 返 回 0， 理 则 ， 返 回 EOF。 
《3 matGetDir 

char *#TnatGetDirOMATEile *imfp, int *murm); 
人 参数 : mfp 指向 MATEFile 文件 的 指针 

num mxArray 和 扼 阵 在 MAT 文件 中 的 地 址 ， 
返回 :操作 成 功 ， 返 回 mxAmay 在 MAT 文件 中 的 地 址 ， 并 将 mxAmay 长 度 值 研 给 numi 
若 MAT 文件 中 无 mxArray， 返 回 0;， 澡 作 失败 ， 返 回 NULL，hnum 被 感 为 负 值 。 

(47 InatGetEFp 

FILE *matGetFp(MATEFile *imfp): 
参数 : mfp 指向 MATEFile 文件 的 指针 。 
返回 : 操作 成 荔 ， 返 回 一 个 FILE 类 型 的 指向 MAT 文件 的 指针 否则， 返回 NULL。 
《5) inatGetVariable 

ImXArrayY *matqietYatiable(MATEile *mfp， const char #naimney， 


"169。 


参数 ，mfp 指向 MATFile 文件 的 指针 ; 
aame 从 MAT 文件 中 取出 的 mxArray 变量 名 。 
返回 : 操作 成 萝 , 将 MAT 文件 中 的 mxArray 变量 复制 出 并 赋 给 分 配 地 址 的 变量 ， 该 变量 


地 址 指针 即 为 函数 返回 值 ， 否则 ， 返 回 NULL， 











《56)》 matGetVariableJInfo 
InXATTay *TmatCietVariahbjeinfo(MATEile *mfp, const char *narmeh': 
参数 : mfp 指向 MATEFile 文件 的 指针 ; 
name 从 MAT 文件 中 取出 的 mxArray 变量 名 。 
说 明 :， 仅 读 取 MAT 文件 中 mxArray 变量 的 头 部 信息 。 
7) THDeletevariable 
int matDeleteVaniable(MATEiie *mfp, const char narme); 
参数 ，mfp 指向 MATEFile 文件 的 指针 ， 
name 从 MAT 文 必 中 删除 的 mxArray 变 景 名 。 
返回 :操作 成 功 ， 返 回 0 否则 ， 返 回 非 0 值 。 
《8 matGetNextwariable 
ImXATray *matGetNextVariable(MATEile *imfp, const char *namey': 
参数 : mfp 指向 MATTFile 文件 的 指针 ; 
name 从 MAT 文件 中 取出 的 mxArray 变量 名 。 
返回 : 操作 成 功 ， 将 MAT 文件 中 的 mxArray 变量 复制 出 并 赋 给 分 配 地 址 的 变量 ， 该 变量 


地 址 指针 即 为 函数 返回 值 ， 否 则 ， 返 回 NULL。 


说 明 ， 与 matGetVariable0 国 数 不 一 样 的 是 ，matGetNextwariable 允许 用 户 将 MAT 文件 中 


的 mxArray 变量 逐个 读 出 。 


(9) matGetNextVariableInfo 
InXAIfTay #matGetNextvariableInfof(MATFile *mfp, const char *hnamey; 
参数 : mip 指向 MATEFile 文件 的 指针 ， 
name 从 MAT 文件 中 取出 的 mxArray 变量 名 ， 
说 明 ， 将 MAT 文件 中 mxArray 变量 的 头 部 信息 逐 全 读 出 。 
《10) matPutvariable 
int InatPutYariable(MIATFile *mfp, congt char +name, const InXATray *mpj; 
参数 ，mfp 指向 MATFile 文件 的 指针 ， 
name 写 入 MAT 文件 的 mxArray 变量 名 ; 
mp 写 入 MAT 文件 的 mxArray 变量 指针 。 
返回 : 操作 成 功 ， 返 回 0: 否则 ， 返 回 非 0 值 。 
说 明 ; 若 MAIT 文件 中 不 存在 name， 将 mp 追加 于 mat 文件 尾 ， 车 name 已 存在 于 MAT 


文件 中 ， 则 将 其 覆盖 。 


《112 matPutVariableAsGlobal 
int imatPutVariableAsGiobal(MATFile *mfp, const char thame， const InXATray *mp); 
参数 : mfp 指向 MATFile 文件 的 指针 ; 
name 写 入 MAT 文件 的 mxArray 变量 名 ; 
mp 写 入 MAT 文件 的 mxArray 变量 指针 。 
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说 明 : 与 matPutwvariahleO 通 数 不 同 的 是 ，matPurvariableAsGlobal0 将 mxArray 变量 作为 
全 局 字 间 的 变量 写 入 MAT 文件 ， 当 加 载 该 变量 时 ， 也 被 当 作 全 局 空间 中 的 变量 如 载 。 


7.4.2 MAT 文件 示例 


MAT 文件 可 由 MATLAB 命令 save 直接 生成 ， 也 可 在 MEX 文件 或 engine 应 用 程序 中 ， 
由 用 户 C 程序 生成 。 本 节 以 MEX 应 用 程序 “MAT1lc” 为 例 ， 说 明 MAT 文件 的 创建 、 打 开 与 
数据 输入 和 输出。 该 程序 可 分 为 如 下 3 部 分 。 

(1 头 文 件 ; 主要 是 使 用 让 nclude 指令 将 math 和 mexb 文件 包 售 于 “MAT1.c” 文 件 中 

(2) 用 户 安 程序 ;主要 完成 mxArray 数据 对 象 的 赋值 和 写 入 mat 文件 操作 ; 

(3》 MEX 接口 程序 ,用户 C 程序 与 MATLAB 间 数 据 变 换 ， 即 将 MATILAB 中 文件 外 送 
入 MBEX 文件 中 。 

“MAT1.c” 程 序 清 单 如 下 : 


PN Heaa AAA 

寓 mcluge "meXH” 

相 mcludge "miathb” 

HAN 了 靖 让 Pipgram HR 

void OutPut(MATFile *fp) 

1 IDRATTay *_Str ID P， intij 
double f[]=11.2.3.4,.5.61; double 这 口 =16.5.4.3,21]; 
double my[]=11.111,1,1]; double if]=16.6,6,5.6.61; 
m_P=mxCreateDoubleMATrixf2.6mxCOMPLEX)J:AA 创建 mxArray 对 象 
forti=0:i<l;i++iorj=0j<6:j++)》 
{#[mxGetPr(m PHi#2+i)=rx 人 :*(txGetPitm_ PP2Hi)=ix 吕 ; 
fori=1liic<2'ir+tiforj=0j<6J++ 
{s(mxGetprtm_PyHs2+i)=typj];*(mxGetPilm_PyHjs2+D)=-iyD:] 
matPufWariableffp, rm_P"m_ Ph 1 将 mxArray 对 象 写 入 mmat 
m_str=mxCreateStringf” imat File JW 创建 mxArray 对 象 
IatPutWariabler 和 pim_ str" in st AAA 将 mAiray 对 银 写 入 mat 
mxbpestroyAray(m_strimxDestroyAtrayfm_ P) 7 本 放 内 存 

] 


HHAAAAWRWmEREFanction AR 

void mexFunction(int nIhsmmxArmray +pihs[],int nths, mxArray *prhsf]) 

{ MATEile *fp; intbuf 

InXChar *FieMNatne， 

AAARGEEdata from pihs] 
inaihsl=llmxtietClassID(prths[0NI=mxCHAR_CLASS) 

IDeXErIMSRTxt( "Please Input a string to be the MATFile natmew' ); 
buf=(mxGetMIprhs[O]D)zmxGetNIprhes[O] 轨 +1， 

FileName=mxcCallocfbuf, sizeoffchar); 
mxtjetStringfprhs[0],FileName,buf， 

AAA 条 开 mat 文件 

这 (fp=matOpen(FileName ww ==NULLJmexErMsgTxt ”Cantt Open MATTile 人 ， 
OutPutfip); 六 调用 C 程 序 ， 并 将 数据 写 入 mat 文件 

ZeXPrintft An The 25i 寺 mat File is created successfullynoa",FileNamey， 
DxFree(FileName); AN 释放 内 存 
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matClosetfp); AAA 关 闭 mat 文件 


] 
EL 


从 “matl.c” 程 序 清 单 中 可 知 ，mat 文件 数据 输入 输出 主要 是 mxArray 类 型 数据 的 操作 。 
因此 ， 辐 mat 文件 中 输入 输出 数据 ， 主 要 是 mat 库 函 数 对 mxArray 数据 对 象 的 创建 、 赋 值 、 
读 取 、 传 递 与 号 入 等 操作 。 在 MATLAB 命令 窗口 中 将 “MAT1.c” 编 译 为 MEX 动态 链接 子 程 
序 ， 其 调用 与 加 载 过程 如 下 : 
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> TeX Iat1 人 
2 mat1f aaa 

The 'aaa.mat Imat_File is created Successfully! 
>> joad aaa -mat 


> Whos 
Natme Size Bytes Ciass 
TI 下 2X 厂 192 double array (CompIex) 
切 _str 9 18 Char array 


好 rand total js 2T elements Using 310 bytes 


> mm_P 

ii 了 = 

I.0000+6.0000i 2.0000+5.0000i 3.0000+4.0000i 40000+3.0000i 5000012.0000i 6.0000+1.000Gi 
1.0000+60000i 1.000046.0000i 1.000046.0000i 1.000016.0000i 1.0000+6.0000i 1.0000+6.0000i 
>> TI_Str 

Im str 三 

Imat FiIe 











第 8 章 MATLAB 与 Visual Basic 接口 


MATLAB 与 Visual Basic 接口 ， 有 使 用 一 般 动 态 链接 库 、DDE、OLE、ActiveX 和 COM 
组 件 等 沁 种 方法 。 

使 用 一 般 动 态 链接 库 技 术 , 通常 是 用 MATLAB 编译 器 将 M 文件 编译 成 动态 链接 库 文 件 ， 
然后 在 VB 环境 中 声明 库 以 后 调用 库 中 的 函数 ， 实 现 一 定 的 功能。 因为 数据 类 型 不 太 容 等 原 
因 ， 当 库 细 数 有 输入 套数 和 返回 值 时 很 容易 出 错 。 此 时 一 般 采 用 外 部 文件 数据 传输 的 办 法 来 
解决 ， 但 数据 很 大 时 效率 受 视 。 而 DDE 技术 自 OLE、ActiveX 和 COM 组 件 等 技术 出 来 以 后 ， 
也 显示 出 劣势 ， 用 得 不 是 很 多 了 。 

所 以 ， 本 章 主要 从 OLE 技术 开始 介绍 ， 比 较 详 细 地 介绍 自 OLE 技术 以 来 的 主要 接口 技 
术 。 重 点 推荐 基于 ActiveX 和 COM 组 件 的 接口 技术 。 学 习 这 些 内 容 ， 需 要 读者 具有 OLE 自 
动 化 编程 、ActiveX 编程 、 面 向 对 和 铭 编 程 和 COM 组 件 编程 方面 的 基础 。 





8.1 基于 ODLE 的 接口 实现 


MATLAB 支持 OLE 生动 化 服务 器 兼容 ， 自 动 化 是 允许 一 个 应 用 程序 或 组 件 控制 另 一 个 
应 用 程序 或 组 件 的 过 议 .这 样 , MATLAB 可 以 被 任何 支持 该 协议 的 克 indows 程序 启动 和 控制 ， 
这 样 的 程序 包括 好 sual C++、VWisual Basic、Excel、Access 和 Project 等 。 使 用 外 动 化 ， 可 以 运 
行 MATLAE 命令 ， 并 可 以 从 MATLAB 获取 数组 数据 或 把 数组 数据 从 MATLAB 中 输出 。 


8.11 实现 OLE 自动 化 


采用 OLE 息 动 化 时 ， 护 动 化 方法 的 变量 和 返回 值 的 数据 类 型 为 自动 化 数据 类 型 ， 它 由 自 
动 化 协议 定义 ， 与 具体 的 滞 言 无 关 。 例 如 ，BSTR 是 一 个 宽 字 符 字 符 娘 类型， 作为 一 个 自动 化 
类 型 ， 它 与 Wisual Basic 中 保存 字符 串 的 类 型 相同 。 尽 管 声明 和 操作 的 细节 由 控制 问 来 指定 ， 
但 任何 OLE 适用 的 控制 比 都 座 该 支持 这 些 数据 类 型 。 
注册 信息 中 MATLAB 对 象 的 名 称 为 MATLAB.Application， 没 有 大 小 写 区 分 。 调 用 
MATLAB 服务 器 的 确切 方式 取决 于 你 选择 的 控制 器 ， 但 所 有 控制 器 都 需要 这 个 名 称 来 确认 服 
务 器 . 实际 操作 时 需要 首先 创建 MAILAB 对 象 的 实例 ， 然 后 调用 该 实例 对 象 的 方法 实现 指定 
功能 。 往 往 使 用 CreateObjeet 函数 来 创建 MATILAB 对 象 的 实例 ， 该 函数 的 调用 格式 一 般 为 ; 
Dim objMAILAB As Object 
Set objMAILAB = CreateObject("MATILAB.Application") 
MATLAEB 自动 化 的 Execute 方 法 可 以 在 Excel. VB 或 任何 支持 VBA 的 程序 中 使 用 ,Execute 
方法 把 一 个 命令 字符 串 作 为 变量 并 返回 一 个 字符 串 ， 其 调用 格式 如 下 。 
如 采 MATLAB 为 客户 程序 : 
Tesujt = h.Execnitefeommand7 
result = Executeth，comarrand'") 
Tesult = ivVokeh，Execute' ceomrmand 








73。 


刀 果 二 品 可 目下 斌 为 客户 程序 ， 

[Gui] BESTR TeSHIL 二 已 WecUteili 肝 本 和 “ET 1 

Execute 务 数 在 句柄 表示 的 自动 化 服务 黑 中 执行 字符 让 command 指 定 的 MATLAB 语句 ， 
眼 务 里 特 输出 亚 回 到 字符 品 result 中 ， 这 学 特 帅 证 可 以 和 襄 尾 何 警告 或 山 异 情 息 ， 

下 而 的 例子 在 服务 骂 中 执行 MATLAB 的 version 丽 数 , 并 将 输出 返回 到 MATLAB 客户 程 
序 中 。 
MATLAB 作为 客 产程 序 时 ， 使 用 下 面 的 命令 行 

本 二 襄 人 ENerYEETImatla iT 


010 个 14) Service Paek 1 :本 
Wigoal Basic 作为 客户 程序 时 ， 使 用 类 似 下 面 | 
的 语句 行 : 


和 ja 
乓 机 研 有 上 MG 训 肌 号 th 二 


Se Natlib = CrealeGbjecit"madlohapplication 1 
EEPver_werainn = Wallab Buectlefvenalog 
下 面 的 例子 用 Visual Basic 调用 MATLAB 进 。 呈 
标志 项 式 拟 全 计算 和 皖 图 。 首 先 在 Visual Basic 剧 
环境 中 设计 窗 体 ， 如 图 8-1 所 示 ， 窗 体 中 各 以 件 
的 属性 设 病 如 要 BT 中 所 示 。 





赛 和 1 各 控 件 的 属性 设置 


下 了 各 


站 | 


和 计 虽 
Ts 














在 窗 体 中 输入 下 面 的 代码 ， 利 用 VB 前 端 界 面 中 输入 的 数据 参数 ， 调 用 MAILAHE 进行 计 
算 和 绘图 。 


OPtionm Explicit 


将 MATLAE 实例 对 象 定 妆 为 公共 变量 
Public obiMATITLAB As Object 


' 定 义 一 个 实现 计算 或 绘图 的 过 程 
Private Sub ComputeorPlot(Corp As Booleany) 
了 im intNum As IDteSer 
Dim intevel 上 As Inhteger 
Dim xftl To 100) As Doubke 
Dim im 1I00) As Double 
Dim strModel As String 
Dim i 和 As Iteger 
Dim strCommand As Strimg 


intNnm = Valt(Text1.Text) 

itLeve] = ValText2.Text) 

Pen pp.Pitb + “datX ”For Dutput As 1 
Print 直 1，TIex 全 

人 Close ] 

Dpen App.Path + "datY" ForOuput as 1 
Print #1，Text4 

lose 1 


Open 上 Ppp.Path + dat ” For Inppt 上 As ] 
Fori=1lTointNam 
Input 关 1, Xi 
Nexti 
Close 1 
Open 二 PPp.Path +“/datY ”Por Input As 上 
Peri= 1 TointNm 
Input #1 ,Yi 
Nexti 
(lose 1 


' 定 义 在 MAILAB 中 要 执行 的 命令 
Statmimnand = ”mm=" 收 SintLevei 站 "= 六 
Reri= 1l To intyum 

StrCormrmand = StComrmand 改 SE(XCD 让” 
Jextij 
strCorrrmnand = StrCommang "];7=[ 
Fori=1TointNum 

strCommrmnanmd = StComimand 议 SETYi 必 "" 
Nexti 
strComimnand = StrCeotnraand 站 "1 
ICorP Then 

strCommand = StrCommand 六 "polyStfx, yn 
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了 本 二 总 TEL 入 国 ,E 基 证 二 [LICAI 
国 吧 

SC 二 SEECGmaiana 戌 “人 辣 GEY] 

站 本 让 TL 太 二 ;REEE 二 TSInCGrmmimiandl 
Er 过 村 


本章 


:进行 弯 项 起 所 全 
TD 
mi DaICGTE 虑 机 轩 吕 可 记 本 | 

balCorP=Tme 
[可 TD 


进行 络 提 
PiwiuE Si CHiiaEENRALS_Cic 人 
Dim talCorP As Boakean 


ia 加 可 b IOmmii_iaiialisef) 
草 建 WATLAB 的 袍 例 
Si EGbjLATL 和 A 旺 CnealeGbjectt matlih:applicatioe | 
下 全 ab 
运行 程序 ， 在 各 窗口 中 恰 六 套数 ， 单 击 “ 计 算 " 技 钮 和 “绘图 ” 技 钥 ， 分 别 实现 计算 和 
姓 围 。 如 图 8.2 所 示 ， 利 用 缺 省 时 给 定 的 一 套数 据 和 参数 ， 单 击 “ 计 算 ” 技 旦 时 显示 事项 式 的 
系数 和 常数 项 ， 于 是 可 以 得 到 多 项 式 拟 全 模型 ， 





图 #z 二 行 站 是 


二 | 了 本 二 


单 击 “ 蛤 图” 技 钥 ， 在 MATLAB 图 形 窗 口中 绘制 给 定数 据 的 线形 图 ， 如 图 由 3 所 未。 





图 4# 3 束 形 图 


8.1.2 ” 心 递 短 阵 数据 
MATLAB 挤 长 算 阵 计算 ， 人 性 用 GetFullMatrix 和 PutFullMatnix 函数 可 以 在 MATLAB 和 
VB 之 间 忧 递 矩阵 数据 ， 
1，GetFullMatrix 函 炉 
该 冰 蓝 从 服务 器 获 反 征 阵 ， 其 调用 格式 如 下 ， 
旭 果 MATLAE 作 汶 冤 户 程序 ; 
上 ea 涡 iT 二 室 ] 二 二. 辣 t 忆 由 折 必 吉林 1 天 下 于 本 | 二 站， AAA 有 FE  TE 二 | 于 上 站 站 区) 
[ 二 一 况 iinia 划 | = CEIRUITWSITiRE， 人 训 FTIE Wi 二 EPE， 天 iT 二) 
[Real Ximma 过 | = 记 wOkeEIN CetFulUkwLaTIR WETTUETTEE NGTKEPSCE ET， zinagh 
霹 果 Wisual Basie 作为 客户 程序 ! 
硬 二 CatFUIITRTaEEISI TI] 再 写 TRADE 人 辣 ] 瑟瑟 了 机 训 Tiee， 
【生硬 证] 号 起 下 医 直 民 民 和 年 襄 硬 本 村 ATE 旨 | 
中 放 ，G] 三 让 下 已 点 天 拓 让 于 园 总 证) 二 大 TriSB 下 
GetFullMatix 函数 从 句柄 kh 表示 的 服务 器 程序 的 工作 空间 workspace 中 秦 取保 存在 变量 
vamame 中 的 筷 际 ， 并 和 将 宽厚 保存 在 wmeal 中 ， 和 将 虚 融 保存 在 Ximag 中 ，workspace 奢 数 的 值 可 
以 取 ase 三 global， meal 和 zimag 【xneal 和 Xing) 枯 数 为 大 小 相同 的 年 阵 ， 
注意 ， 好 归 试 图 特 GalFullMatrix 邓 孝 的 栓 出 显示 到 井 户 窗 口 ， 站 关 指 定 Weal 和 /或 Xitmag 
性 出 变量 。 使 用 第 一 种 语法 格式 时 ， 服 务 器 函 黑 各， 全 好 GetFullMairix 是 有 坟 小 写 区 分 的 。 对 
手 网 ETLAB 寄 产程 序 ， 上面 了 各 语法 格式 在 损人 就 村 上 没有 区 副 . 对 于 人 HB 肝 志 客户 生 序 ,使 
用 GerWiorkspaceDati 币 : PiWGrEspaceDaia 通 | 吉 与 MATLAB 工作 室 间 传 通 款 值 点 揭 ， 这 些 画 熹 
使 用 variant 瞄 据 类 型 取代 safearmray 数据 类型 ， 固 为 VB 阳 林 语言 不 支持 afearmiy 喜 据 类 型 ， 
下 面 的 例子 将 一 个 5XS 的 实数 炬 阵 栈 符 服 务 器 基本 工作 室 间 中 的 变量 M， 朴 后 者 
GeiFulllMatix 函数 特 它 读 回 ， 


理 上 了 7 





MAITLAB 作为 客户 程序 时 ， 使 用 下 面 的 命令 行 : 
h = 名 fsServer(tmatlab.apPlication 
hPautFuliMatrix0M base' ranqdtS1， zerosfS， 


NMReal = h.GetFullMatrixf MT ，base zerosf5) ZETOSIS 访 

Real = 
0.9501 0,.7623 必 6154 0.4057 0.05 陷 
0.2311 0.4565 .79159 .9355 避 .3529 
站 ,6068 185 总 .9218 总 9169 间 .8132 
站 .4860 D.8214 站 .7382 0.4103 0.0059 
0.8913 0.4447 0.1763 0.893 厂 0.1389 

Visual Basic 作为 客户 程序 时 ， 使 用 类 似 下 面 的 语 匈 行 : 

Dim MatLab As Object 

Dim Result As Strine 

Dim 甘 Realf1, 3) AS Douhbte 

Dim 藉 ImagD As Donble 

Dim RealValue As Douhje 

Dim ij 点 s Integer 

Set Matlab = CreateObject ”tmatlab.applicaton”) 

Raesult = MiatLahb.Execute( M = fand(3]; ) 

Call MiatLabh.GetEullMSatix Mbase 和 Real, XImag) 








2，PutFullMaitrix 函数 
该 函数 将 矩阵 保存 到 服务 器 程序 中 ， 调 用 烙 式 如 下 ， 
如 果 MATILAB 作为 客户 程序 : 
h.PutFPullMatrixfvarmarme'，workspace', Xreal, ximag) 
PutFPullMatrix(h，varnarte，workspace'， xreal, ximag) 
inyoketh，PutFullMatnx ，varnanie'，wofKSDace，Xxreal, Ximag) 
如 果 Visual Basic 作为 客户 程序 : 
void PutFullMatrix(finj 了 BSTR narme, [in] BSTR workspace， 
[in] SAFEARRAY(double) xreal, [in] SAFEARRATY(double) ximagy 
PutFulMatrix 荔 数 将 句柄 h 表示 的 服务 器 的 指定 工作 空间 中 的 抢 阵 保存 到 变量 varname 
中 。 将 矩阵 的 实 部 和 虚 部 输入 到 xreal 和 ximag 输入 参数 中 。workspace 参数 可 以 是 base 或 
global。 
注 间 : xreal 和 ximag 参数 中 指定 的 矩阵 不 能 是 标量 、 空 短 阵 或 具有 2 维 以 上 。 
【 例 1] 下 面 的 例子 给 服务 器 基本 工作 空间 中 的 变量 M 威 5X5 的 实数 矩阵 ， 然 后 用 
GetFuliMatrix 函数 读 回 ， 实 部 和 虚 部 〈 可 选 ) 通过 单独 的 double 型 数组 传 入 。 
如 果 MAILAB 为 客户 程序 ， 使 用 下 面 的 命令 行 ， 


= actxseIver(matlab.application ); 
h.PutpullMatrixfMT Phase randfSy zerosfSh 


XTreal = hCGetFullMatrxfM' base',， zerosfS), zerosfS]) 
Xreal 二 
0.9501 站 7621 0.6154 0.4057 0.057 芍 
.z311 0.4S65 .791 0.9355 0.3529 


. 178 








0.6068 00185 0.921 台 0.9169 0.8132 
必 4860 D.8214 必 7382 六 4103 DO099 
0.8933 0.4447 0.1763 避 8936 04.1389 


如 果 Wisual Basic 为 客户 程序 ， 使 用 类 羽 下 面 的 语句 行 ; 
Dim MatLab As 加 bject 
Ditmn XReal(S, S) 点 s Diouble 
Dim 其 Drmiag(S, 5) As Domble 
Dim ZRealf5, 5 As Double 
Dim ZImag(S, S) As Double 
Dam i, j As Integer 


Feori=0Tod4 
Forj=0To4 
有 Realfi, 和 = 及 na*# 硬 
天 Image 人 四 三 耻 
Jexrj 
Nexti 


Ser Matlab = CreateObject "matlab.application 
Call MatLab.PutFullMatrix("M"， base", XReal, XImag) 


Call MatLah.OetFuMatrixf M base ZReal ZIrmnag) 


【 例 2〗 上 面 的 例子 将 矩阵 写 入 基本 工作 空间 ， 杯 例 将 矩阵 写 入 鼎 务 器 的 全 局 工作 罕 间 ， 


然后 从 客户 程序 探 察 服务 器 的 全 局 工作 空间 。 
MATLAB 作为 客户 程序 时 ， 使 用 下 面 的 命令 行 ， 


.PutFullMatrixCX'，glohal, 和 35;246[000;00D0) 
hinvoke( 品 Xecute ，whos Bobal') 


angs 二 
Name Size Bytes 性]ass 
臣 2 96 double armay global comPleR) 


Orand total js 后 eeIments USing 96 bytes 


Visual Basic 作为 客户 程序 时 ， 使 用 类 似 下 面 的 语句 行 ; 


Dim MartLab As Object 

10 其 Realfl To 3) As Doable 
Dim XImag(l To 3 和 s Double 
了 Pim 人 blvar 及 5 总 img 

Diim i, j 和 s Integer 


XReat(D= 1 
XReal(2) = 3 
XReal(3) = 5 


Set MatLab = CreateObjectt matlab.application" 

Call Matiab,PutFullMatrixt NM “Pobal ,其 Real, XImapgy 
gblvar = MatLah Execnte( "whos glohal 

Prnint gblvar 


【 例 3】 下 面 的 实例 首先 建立 与 MAILAB 的 自动 化 连接 ， 然 后 传 入 一 个 3X3 的 矩阵 ， 
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还 德 旦 降 的 递 以 后 将 道 息 陈 返 问 蝇 全 四 
公 建 新 工程 上 Ge_ ai 标准 窗 体 几 称 淹 站 VBOLEEM， 在 窗 体 上 郊 旋 1 证 框 其 控件 ， 
其 中 访 旨 个 文本 框 ， 在 惜 揭 控件 而 侧 放 汗 卫 个 标 答 和 2 个 乾 令 撤 钥 ， 如 图 344 所 示 。 





图 下 程 谋 的 恋 计 强 面 
窗 体 和 和 喜 兵 件 的 设置 大 甫 瑟 3 所 示 ， 
各 和 2 ， 窗 体 和 榨 件 的 设置 





在 代码 窗口 键 六 下 面 的 代码 : 
RE 和 ECGip 枯 证- 人 全 和， 

机 | 击 二 JWMATILAB As 站 人 jacl 
i 关 二 4 下 Ra TB 3 Te 3 Am 四 aaa 
ia dtLEIT TO 瑟 TTo 芭 二 s Dale 
应 HG 人 市 是 
团 击 重 HCatlaaia To 3 TS 三 aikle 
酌 别 站 和 合生 本 ET 
册 庆 于 由 g 本 请 用 cf 


册 和 EnReE| 1 二 天 加 和 起 E[ON Te 
二 IInReall 2 三 WallextEMeL Te 


至 赴 量 年 


NaReaiiT; 和 = 感 可 芭 . 全 SHh 
了 Ea 全 1 王 WaTEIE|G 了 iTE 和 二 
二 il 了 ali 衬 2 二 WRITERIE[R 二 iTES 计 
可 本 本 二 人 二。 了) 天 二 HER 有 Te 
中 llnREaH 3 1 二 后 DEL Ts 
册 iiTiRealf3 了 二 WECIEIELTT TEA 
i 开 二 民 中 刘 3 引 ) 囊 Wa EL 和 


FrisiToS 
Fafj 二 1 To 志 
TD 
SEE 唱 


辐 二 二 


SelMaiLab = CresiefDbjecti rnatlib applicadioe 1 
Call MaadLab PutFEulIMatriaf"InR"，"taxe*， dbllnResl dbilntmagy 
Call MalLab .ExecutefnOutM=inutlnktht 


Ti 晤 MON 矶 每 可 
估 HONILCSP4ii ET 
Fari=1To3 
Erj= TiTo3 
strOitkl 二 Ci 这 内 DulRReaii 入 度 站 hf 
的 到 对 
人 HOULCRPAiba =ThIGLECHEiian 商 二 NM 意 站 LI 二 Ch 
Era 一 
TREE 册 


号 本 HLa 三 网 可 上 轩 要 
nd Sa 


Privale Sub emdExiL_Clitl) 
Unload fnmwBOLEN 
Ed 号 矶 
运行 程序 ， 单 击 “ 隶 原 卸 阵 的 道 短 阵 ” 命 售 技 钮 ， 在 右 傅 显 示 原 筷 阵 的 递 拭 阵 ， 如 图 8 
所 未 ， 





图 有 5 程序 运行 效果 
s 1 











8.1.3 ”传递 字符 赴 
使 用 GetCharArray 函数 和 PutCharArray 函数 可 以 在 MATLAB 与 VB 之 间 传 递 字符 单 。 


1，GetCharArray 男 数 

该 函数 从 服务 器 程序 获取 字符 浊 ， 调 用 格式 如 下 。 

如 果 MAILAB 用 作客 户 程 序 ; 

String =j.GetCharArrayCvarname'，wWorkspace') 
String = GetCharArmayth，yarmame'，wWorkspace 
string = invoketh，GetCharArray' vamame'，worKspace') 
如 果 Visual Basic 用 作客 户 程序 ; 
void GetCharArray([in] BSTR vamame, [in] BSTR worKspace， 
[ouat] BSTR string); 

GetCharArray 函数 获取 保存 在 变量 varmame 中 的 字符 串 , varrame 变量 位 于 句柄 jh 表示 的 
服务 器 的 工作 空间 werkspace 中 。 获 取 的 值 返回 到 string 中 。workspace 参数 可 以 是 base 或 
glob 订 。 

注 弟 ， 如 果 试 图 将 GerCharArray 函数 的 输出 显示 到 客户 窗口 上 ,必须 指定 一 个 输出 变量 ， 
攻 string， 


2，PutCharArray 函数 
使 用 该 函数 将 字符 串 保 存 到 服务 器 中 ， 调 用 格式 如 下 。 
如 果 MATLAE 为 客户 程序 : 
h.PutCharArray(varnaime'，wWolkspace，string) 
PutcharArray(h，vatname'，workspace'， String 
inyoketh, PutCharArray， Varniame'，workspace''string 
如 果 Wisual Basic 为 客户 程序 ， 
Yoid PutCharArray([in] BSTR name, [in] BSTR wetkspaceJin] BSTR string)， 
PutCharAnmray 函数 将 服务 器 h 的 工作 空间 wotkspace 中 string 参数 内 的 字符 吝 保 存 到 变量 
varmame 中 。workspace 参数 可 以 是 base 或 global. 
注 闪 : string 泰 数 指定 的 字符 串 可 以 具有 任意 维 教 ， 
下 面 的 例子 用 PutCharArray 函数 将 字符 利 指 定 给 服务 器 基本 工作 空间 的 变量 str 中 , 然后 
用 GetCharArray 函数 读 回 到 客户 程序 。 
MATLAB 用 作客 户 程 序 时 ， 使 用 下 面 的 命令 行 ， 
hh >= actxSserverf atTab ,application'， 
h.PutCharAtray('stt'， 中 ase，-，。 
He jpsts 二 scars that never 世 elt a wound.)， 


号 = 了 GetCharArrayfsftr base ) 
乌 一 
He jests at scars 由 Mt never 站 让 a wound 
Visual Basic 用 作客 户 程 序 时 ， 使 用 类 似 下 面 的 语句 行 ， 
Dim Matlab As Object 
Dim S As String 
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Set Matlab = CheateObject "matab-application 
Call Matlab.PntCharArmayf"str"， base" ,He jests at Scars 由 旺 meveT 亿 tt a Wound.) 


Call Matiab.GetCharArrayf str"，"base SS) 


8.1.4 处 理工 作 空 间 的 数据 


使 用 GetWokspace 函数 和 PurWorkspace 国 数 可 以 从 工作 空间 获取 数据 或 者 将 数据 放 到 工 
作 空 间 鞋 。 


1，GetWorkspaceData 函数 
该 画 数 从 服务 器 工作 空间 获取 数据 ， 调 用 格式 如 下 。 
如 果 MATLAB 为 客户 程序 
D = h.GetWorkspaceDatatvarmame'，wWorkspace ) 
D = GetWorkspaceDatafth，vamame'，workspace) 
PD = invokeh ,GetWokspaceData ，vatrname'，workspace') 
如 果 Visual Basic 作为 客户 程序 ， 
void DetWotkspaceDataf[in] BSTR varname, [in] 了 STR workspace， 
Eout] BSTR retdata); 
GetWorkspaceData 函数 获取 保存 在 变 景 vatname 中 的 数据 ， 该 变量 位 于 句柄 h 表示 的 服 
务 器 的 工作 空间 wotkspace 中 。 返 回 秆 返回 到 输出 参数 D 中 。workspace 参数 可 以 是 base 或 


global. 
下 面 的 例子 将 一 个 单元 数组 赋 给 服务 器 基本 工作 空间 中 的 变量 Ci， 然后 用 
GetWokspaceDaia 函数 读 回 。 


MATILAB 作为 客户 程序 时 ， 使 用 下 面 的 命令 行 
h = actkeerverfrnatab,application' 
hPatWorkspaceData0CCl base 125.72， helilo' rard(4h]); 


2=h.OetWorkspaceDatafC1 ， base 
丰 2 二 
[25.7200] 由 elle' [4x4 doublte] 
Visual Basic 作为 客户 程序 时 ， 使 用 类 似 下 面 的 语句 行 ， 
Dim Matlab As Object 


SPt Matlab = CreateObject(" matlab.application' ) 
Result = MatLab .Executet"C] = 125,72, hello tinaqld)]1; 站 


Call Mattab,GetWiorkspaceDatat"C1"，base"， C21) 


2，PutWorkspaceData 函数 
使 用 谅 国 数 将 数据 保存 到 服务 器 工作 空间 中 ， 调 用 格式 如 下 。 
MATLAB 用 作客 户 程 序 时 ， 
PutWorkspaceDatatvarname'， workspace'， data) 
PufWaorkspaceDatath， varmame'，wotkspace', datal) 
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记 Voketh，PutWorkspaceData ，vamame，WwWorkspace ,data) 
Wisual Basic 用 作客 户 程序 时 : ， 
void PutWaorkspaceDatat[in] BESTR name, [in] BSTR workspace,fin] BSTR datay)， 
PutWorkspaceData 函数 将 铝 柄 hn 表示 的 服务 器 的 工作 空间 workspace 中 的 数据 保存 到 变量 
vaimnarme 中 。workspace 参数 可 以 是 base 或 日 obal。 
下 面 的 例子 在 客户 程序 中 创建 一 个 数组 ， 并 将 它 赋 给 服务 器 基本 工作 空间 中 的 变量 A。 
MATLAB 用 作客 户 程序 时 ， 使 用 下 面 的 命令 行 


和 = etxserver( Inatlab.application' ); 





Joti= 1: 
datatij 一 1 .# 15， 
end 


hh.PutWaorkspaceDatar 各， Tbase', data]; 


Visual Basic 用 作客 户 程序 时 ， 使 用 类 似 下 面 的 语句 行 : 


Dim Matab 点 s 人 bject 
Dim data(7) 上 As Double 


Set Matlab = CreateObject( imatlab,applicatiom 
Fori=uTog . 

data(i 和 = 半 二 15: 
Nexti 


Ca fatlab_PutyWeorkspaceDataf 和“ "base” ,dat 


8.1.5 传递 和 处 理 MATLAB 函数 


使 用 Feval 函数 在 服务 器 中 处 理 MATLAB 函数 ， 该 函数 的 调用 格式 如 下 。 
如 果 MATLAB 用 作客 户 程序 : 
Tesult = h.Fevaltfunctionuame', numout, argT, arg2，..) 
Tesult = Fevalth，funectionname', numout, argl, arg2Z,.…) 
Tesult = invokelh.Feval， funetionname', numout, afg1, arg2，..) 
如 果 Visual Basic 用 作客 户 程 序 ， 
Yoid Feval([ipn] BSTR functionname, [in] ljong nnmout， 
[oug VARLIANT* result [in] VARIANT argl, arg2,.) 
Feval 函数 在 句柄 h 表示 的 自动 化 服务 器 中 执行 字符 串 functionname 指定 的 MATLAB 函 
数 。1X1 的 double 型 数组 numnout 为 函数 返回 的 输出 参数 个 数 。 服 务 器 将 函数 的 输出 返回 到 
单元 数组 result 中 。 
最 多 可 以 指定 3 失 个 输入 参数 ， 这 些 参数 放 在 numont 参数 的 后 面 。 传 递 参 数 有 4 种 方式 ， 
如 表 8-3 所 示 。 
下 面 举 倘 涪 明 Feval 函数 的 使 用 。， 
(IJ MATILAB 用 作客 户 程序 时 的 参数 传递 
名 在 Feval 函数 中 通过 传递 strcat 函数 名 来 聂 合 两 个 单词 。 


各 引 。 





a =h,EevalCsttcab， 1. helio '，word) 
号 三 
hello wofld' 


形 8-3 参数 传递 机 制 


忧 递 机 制 


可 也 ， 在 Fevil 中 。 
传递 值 赤 身 传递 任何 教 值 或 字符 串 值 在 e 参数 列表 中 指定 值 
卫 =hFevalt sin ，1， -Pi 由 1:Pi5 


传递 一 个 难熬 ， 该 参数 己 经 在 客户 程序 中 赋 给 变 曹 ， 单 独 指定 变量 名 ， 
心 递 客户 变 基 工 = -pi:001:pi; 
由 二 PEevalfsin ，1， Ri; 








引用 服务 器 中 定 立 的 变 垂 ， 指 定 后 面 带 等 号 的 变量 名 : 
引用 服务 器 变量 了 PutWorkspaceDataf base'， -hi'0.01D1; 
纪 三 hhEevattsin' 1，X=]; 
服务 器 中 定 习 的 变量 并 在 服务 器 中 杜 普 该 变量 ， 指 定 变革 名 、 等 号 和 要 贱 络 变量 的 新 值 ， 
引用 并 机 瘟 服务 器 变量 PutWorkspaceDatafx ba5e -Pit.0T:D; 
外 三 h_PFevaifsin ， 1，R=-5001:57 


@ 进行 相同 的 聚合 ， 传 递 一 个 字符 串 和 一 个 局 部 变量 clistr，cfistr 包含 第 2 个 字符 串 。 


clistr = "waorld ， 
a = 上 Fevaltstrcat，1，heljlo ,clistr) 
肌 王 
hello world 
地 本 例 中 srvstr 变量 在 服务 器 程序 ， 而 不 是 客户 程序 中 定义 。 在 变量 名 后 面 加 一 个 等 号 ， 
告诉 MATLAB 这 是 一 个 服务 器 变量 ，MATLAB 就 不 会 将 它 作为 局 部 变量 处 理 。 


吧 在 服务 器 中 定义 变量 srvstr 
h.PutChararrayfCsrvstr， 也 ase，world 7; 

















%% 用 mame=' 语 法 覆 式 传递 服务 器 变量 的 名 称 
=h,Eeval0strcat' 1, helio '，Stvstr= 
站 二 

hellio wortd' 


地 本 例 与 上 例 类 似 ， 但 要 给 服务 器 变量 赋 新 值 ， 然 后 用 该 新 值 进行 取 合 


% 在 服务 器 上 定 交 变量 srvstr 
h.PutCharArmrayfsrvstm，base'，wWotld 


中 结 srvstr 赋 一 个 新 字符 串 并 进行 阳 侣 
3 = 上 Feyalfstrcat ,hello '，Srvstr=everyone') 
明王 

hello everyone' 


5 修改 srvstr 变量 ， 它 现在 有 新 值 
3 三 .GetCharArrayfsrvstr， base) 
eveiyone' 
《2) Visual Basic 用 作客 户 程 序 时 
下 面 将 Visual Basic 作为 客户 程序 ， 实 现 与 上 面倒 子 相 同 的 功能 。 这 些 例 子 返回 与 上 面 的 
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相册 的 字符 串 。 
全 传递 两 个 字符 串 : 
Dirm Matiab 和 s Object 
Set Matlab = CreateODbject'tmattab,application 
Ca Matlab.Fevalf"strcat "toub hello "world >》 
外 局 部 定义 clistr 并 传递 该 变量 ; 


Dinn Matab As Object 
Diim clistr As String 
Set Matlahb = CreaieObject[ ”matlab.application ) 


clistr = ”world” 
Cal Matlab.Fevalf "strcat"， 1， Out hello "clistr ) 


转 传递 在 服务 器 上 定义 的 变量 的 名 称 。 
Dim Matlab As Dbject 
Set Matlab = CreateObject[ "maatiab,applicafion ) 
Call Matlab PutCharAmay('srvstr" base"， World 
Ca Matiab,Fevalf Streat 1, Ont，“heilo "，"Srvstr= ) 
全 传递 在 服务 器 上 定义 的 变量 的 名 称 ， 还 给 该 变量 提供 一 个 新 值 。 
Dim Matlab As Object 
Set ktatIab = CreateObjectf matiab.application 
Call Matlah.PutCharAtray("sTvstr"，base"， "World ) 
Call Matlab_Fevalt "strecat ， 1， Gtt，hello "srvstr= "eyeryone ) 
Cal Matab.GetCharAtrayf "srYStt base 8) 
客户 程序 为 MATLAB 或 VB 时 ，Feval 函数 的 返回 值 有 如 下 定义 : 
MATLAB 用 作客 户 程 序 时 : 
Feval 函数 将 处 理 函 数 的 返回 数据 放 在 一 个 单元 数组 中 。 每 个 返 这 值 在 单元 数组 中 占 一 
行 。 可 以 用 Feval 函数 的 第 2 个 输入 参数 控制 返回 值 的 个 数 ， 如 本 例 所 示 。 本 例 要 求 Feval 冰 
煞 从 ieparts 函数 返回 3 个 输出 参数 。 需 要 注意 的 是 ,， 要求 返 回 的 参数 个 教 不 能 比 本 煞 返回 值 
的 最 大 个 数 多 。 
引 =h.Feval(fileparts 3，d:workWConscleAppcpp ) 
如 二 
WwWork' 
CrsoleApp' 
ccpp 
Visual Basic 用 作客 户 程序 时 ， 
焉 面 是 相 局 的 例子 ， 但 用 Wisual Basic 编码 。 
Dim Matlahb As Object 
Set Matlab = CreateODbjecetk "matlab-applicatipn”) 
Call Matlab.Fevalf 后]eparts 4. omt，"dVwornConsoleApp.cpp") 


8.1.6 ”其 他 操作 


使 用 MaximizeCommandWindow 等 函数 ， 可 以 实现 服务 器 窗 中 显示 、 最 小 化 和 终止 运行 
等 功能 。 
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1，MaximizeCommandwWindow 函数 
谅 函 数 在 Windows 桌面 上 显示 服务 器 窗口 ， 语 法 格式 如 下 。 
如 果 MATLAH 为 客户 程序 : 


和 .MaximizeCommandWindoW 

MaximizeComrmandWindowtdh) 

invokefh,MaximizeCornmandwWindow' 
如 果 Visual Basic 作为 客户 程序 ; 

yoid MaximizeCommandwindow， 


MaximizeCommandWindow 函数 显示 何 柄 为 h 的 服务 器 程序 的 窗口 ， 并 使 它 成 为 当前 激活 
的 窗口 。 如 果 服 务 器 窗口 并 不 处 于 最 小 化 状态 ， 则 MaximizeCommandWindow 函数 不 起 作用 。 
下 面 的 鲍 子 创建 一 个 COM 服务 器 , 使 它 的 窗口 最 小 化 , 然后 最 大 化 窗 吕 并 使 它 成 为 当前 
激活 的 窗口 
MATLAB 为 客户 程序 时 ， 使 用 下 面 的 命令 行 : 
h = actkserverfmaatlab.applicatiom ); 
h.MinitmizeCormrmardWwindow: 
% 现在 ， 将 服务 器 窗口 返回 到 前 一 状态 
站 并 使 之 成 为 当前 激活 的 窗口 
h.MaximizeComrmandWindow， 


Visual Basic 作为 客户 程序 时 ， 使 用 类 似 下 面 的 语 名 行 : 
Dim Matlab As Object 


Set katlab = CreateObject "matlab.application 
Cal Matab.MinimizeCommandWindow 


rem 现在 ， 将 服务 器 窗口 返回 到 前 一 状态 
rem 并 使 之 成 为 当前 激活 的 窗口 


Call Matlah.MaximizeCommandWwindow 


2，MinimizeCommandWindow 消 数 
该 函数 使 服务 器 窗口 最 小 化 ， 调 用 格式 与 MaximizeCommandWindow 函数 的 相同 。 


3，Quit 函数 
该 函 煞 终止 MATLAB 服务 器 的 运行 ， 调 用 格式 如 下 。 
如 果 MATLAB 为 客户 程序 ; 
h.Quit 
Quittb) 
invyokelhvQuit” 
如 果 Visual Basic 为 客户 程序 ; 
void Quit 
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8.2 基于 ActiveX 的 接口 实现 


Aetvex 技术 是 由 GELE 技术 鉴 展 而 来 的 , 它 合 庶 用 程序 之 间 的 通信 超出 了 本 地 机 的 范围 。 
相 其 技术 村 括 ActiweX 控件 。ActveX DLL，、ActiveX EXE 和 I ActiveX 喜 档 等 。MATLAB 对 前 
而 巴 种 施 或 娩 供 了 较 好 的 支持 


8.21 性 用 ActiveX 控件 


在 鹿 ATLAB 让， 使 用 mebeanbal 函数 可 以 创建 Acetiwex 掉 件 的 袍 例 ， 井 显示 到 图 形 窗 晶 
中 ， 从 而 使 MATLAB 界面 设计 增加 了 匹 煌 的 可 能 人 性。 第 15 章 会 进一步 讨论 这 方面 的 问题 。 
销 耕 章 丰 甸 了 actxeantel 函数 的 调用 格 起 。 


下 面 的 例子 首先 用 WEB 亿 建 一 个 面 贺 
的 种 件 ， 炬 后 MATLAE 作为 客 卢 疯 调 用 入 






控件 ， 
总 | 1， 用 VB 创建 控件 
小 三 独 硬 证。 nil EtieEE 填 | 硬 同 ， 站 | 下 面 征 Visatal Basis 中 创建 一 个 画 贺 的 


AsivexK 榨 件 , 姻 图 86 所 示 , 当 进 六 Viaaal 
和 < | 。 Basic 环境 时 ， 在 “新 建 工程 ” 对话 幅 中 远 
0 择 “"ActiveX 控件 * 图 标 ， 人 然后 单 击 "打开 ” 
Se 按钮 ， 确 定 介 建 一 个 ActiveX 控件 。 

北 后 在 控件 中 启 加 一 个 监 色 图 像框 
BieDrmaw， 如 图 By 所 示 。 和 注意 特 pieDraw 
Et | 的 AutoRednw 局 性 设置 为 Tme。 这 个 图像 

余 86 “新 嫂 工 程 ”对 请 由 框 将 作为 我 们 画 圆 时 的 面 布 . 把 该 控件 保存 
沟 CireleDrtw el 





图 率 7 袖 计 控件 外 各 











下 一 步 添加 控件 的 属性 和 方法 。 因 为 是 画 网 ， 所 以 要 确定 圆 的 圆心 坐标 ， 以 确定 圆 的 位 
置 、 另 外 还 要 确定 圆 的 半径 ， 以 确定 圆 的 大 小 。 所 以 ， 给 CircleDraw 控件 添加 三 个 属性 ， 邵 
CenterX CenterY 和 CircleR, 其 中 , CenterX 和 CenterY 分 别 是 圆心 的 横 坐 标 和 纵 坐 标 , CircleR 
为 刚 的 半 答 。 定 义 圆 的 位 置 和 大 小 以 后 ， 还 要 定义 一 个 Draw 方法 ， 实 现 绘图 。 

在 代码 窗口 中 添加 下 面 的 代码 ， 


〇 ptior Exblicit 


Dim Im_CenterX 和 ss Double 
Dim mn_CenterY As Double 
了 im nm CitclehR As Double 


Public Property Let CenterXtMNewData As Double) 
ICentefX = MewData 
End Property 


Public Proberty (et CenteIXN 和 5 Donble 
CenteTrX = mm_CentefX 
PEnd Property 


Publie Property Let CenterY(NewData As Double) 
Im_CentetY = NewData 
End Property 


Pablic Property Get CentierY 人 s Douhle 
CenteryYy = Im_Cenhter 
End Proberty 


Public Property Let CircleR(NewData As Doubje) 
mL_CircleR = NewData 
Fnd Property 


Puhblic Property Get CircleRO As Doubhle 
CircleR = m_CircleR 
End Property 


Publie Suh Draw0 
RicDraw.Circle fm_CenterX m_CenterY) m_CireleR 
Bnd Sob 


最 后 保存 控件 到 文件 ， 并 单 击 “ 文 件 ” 菜 单 中 的 “生成 CircleDrawocx.,.” 选 项 ， 生 成 
ActiveX 控件 Circleprawrocx。 生 成 控件 的 过 程 中 ， 系 统 会 自动 注册 该 控件 ， 这 样 ， 在 其 他 工 
程 中 就 可 以 引用 它 ， 

2 测试 控件 

控件 制作 完毕 以 后 ， 为 了 检查 它 是 否 能 正常 工作 ， 一 般 要 对 它 进行 测试 。 下 面 我 们 就 测 
试 一 下 刚刚 建立 的 CirecleDraw.ocx 控件 。 

首先 ， 在 Wisual Basic 中 建立 一 个 标准 工程 ctlTestvybp。 然 后 从 “工程 ”菜单 中 单 击 “部 
件 …” 选 项 ， 打 开 “ 部 件 ” 对 话 框 ， 如 图 8-8 所 示 。 利 用 该 对 话 框 ， 证 以 把 可 用 的 部 件 导 入 到 
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当前 工程 中 。 我 们 需要 的 CircleDraw.ocx 控件 在 “控件 ”选项 卡 中 没有 由 现 ， 单 击 “ 补 鉴 .” 
接 钮 ， 从 读 粳 伞 的 人 存 大 目录 让 拥 到 它 非 确定 打开 ， 册 Ginelelawaex 控件 的 服务 者 DrawCire|e 
显示 在 * 檀 件 ” 选 需 卡 利 ， 井 上 且 被 遍 中 ， 扣 团 有 4 扩 示 。 

在 “前 件 ” 对 话 框 中 单 击 “确定 ” 核 钙 ，CircleDrawocx 昼 性 档 导 入 到 当前 工 称 中 来 了 ， 
井 在 窗 何 在 便 的 工具 栏 中 吃 示 它 的 图 标 ， 试 着 像 他 用 基本 挤 人 忻 性 样 使 用 它 。 单 击 它 以 后 用 也 
标 在 设计 窗 体 【Forml' 中 进行 拖拉 攀 作 ， 显 示 访 控件 的 界面 ， 节 一 张 世 色 的 画布 ,型 在 ， 再 
语 和 加 一 个 页 专 接 伺 cmdTest， 格 它 放 在 所 力 技 但 应 下方 ， 标 确 为 “ 侗 试 "， 效果 丰 89 所 示 。 






图 六 和 “ 郝 必 ”对话 杠 俐 9 油 试 程序 窗 体 设计 
二 一步 禄 加 功能 代码 ， 在 emdTeat 合 代 按钮 的 单 击 事件 代码 框架 中 谨 加 下 面 的 代码 ， 利 
用 面 图 榨 忻 画图 。 
让 和 二 站 号 Ed 到 sk 人 
二 尼 EeleDeawl 
几 WEF 关 三 Ti 
JeEIEFY 三 
证 写 R 三 号 加 
[和 三 
JE 本 站 三 了 到 由 
上 关于 站 三】 到 加 
JiieleRR 二 
Jaw 
目击 碍 攻击 
ET 
运行 程序 ， 在 弹出 的 程序 窗 体 中 单 而 “测试 ” 
技 钮 ， 在 兰 色 面 布 上 画 一 个 圆 ， 如 图 8.10 所 示 。 这 
样 的 站 竖 ， 说 明 我 们 自己 做 的 控件 CireleDrawacxg 让 
鱼 正 常 工作 。 


3. 在 MATLAB 店 恒 用 CireleDraw 控件 

现在 在 MATLAB 中 使 用 CirelaDraw 控件 , 包括 
导 关 组 付 。 信 息 蓝 记 ， 略 性 类 改 和 重 给 谓 形 峡 音 项 
工作 。 
用 actxcontrmol 函数 在 MATLAB 中 创建 ActiveX 但 钙 10 删 试 结果 


TS 





自动 化 挫 件 ， 在 布 专 留 口 键入 
iaEEREDmHTEITFEWEincleEineledagW 直下 300.3 站 
自 三 

姑 疼 由 1 所 示 ，CirecleDraw 控件 杆 导 入 到 图 形 窗口 中 。 





人 


日 
仙 六 各 疏 
和 
机 


图 呈 .人 在 MATLAB 图 柜 窗 口中 用 入 控件 
用 Eet 琢 数 和 invcke 函数 分 别 慕 取 控 件 的 故 性 和 方法 ， 


从 上 面 的 属性 值 中 可 以 看 出 ， 默 认 时 ， 圆 心 坐 标 和 半 往 竺 属 性 的 值 都 星 0， 所 以 图 41 


中 设 有 看 到 圆 ， 
下 面 用 WATLAB 的 set 函数 修改 兵 件 的 赂 性 ， 并 用 Draw 方法 进行 重 嫉 。 这 里 夯 站 
一 小 两 个 图 ， 
Ce TO 
用 .二 | 本 下 二 TO 
在 EPEIE 民 二 SC 
村. 四 天 师 
人 :CermierXE2SIRK 
书 .CETUETY ES 
相 iirele 和 天: 
ha 
针 昌 如 图 生 12 所 示 ， 


二 二 1 





图 包 1 入 村 熔 件 属 性 以 后 的 接 图 笋 时 


&.2.2 使 用 AcetiveX DLL 


与 世 ctiveX 控件 不 同 ，ActiveX DLL 一 般 没 有 图 形 界面 。 MATLAB 中 用 actkserver 函数 创 
建 ActjiveX DLL 对 象 的 富 例 ， 为 进程 内 的 入 成 。 

下 面 创建 的 DLL 库 是 一 个 三 锥 图 形 数学 库 的 一 部 分 ， 库 中 有 2 个 类 ， 即 Weetar3D 类 和 和 
Matdx3D 类 ， 分 别 扒 速 矢量 和 矩阵 计算 ， 


1。 剖 建 ActiveX DLL 
打开 忆 昌 程序 时 ， 在 “新 加工 程 " 幅 极 中 选择 “AEeliwax DLL” 图 标 ， 单 击 ” 打 开 ” 技 握 ， 
可 以 估 建 一 个 上 etiwexg DLL 工程 ， 如 首 13 后 未 。 





ra 


围 归 读 间 寻 ActlwEX DLL 工程 
与 ActiveX 控件 不 间 的 是 ，AetivexX DLL 设 有 界面 ， 只 有 类 避 码 ， 默 认 时 ，VB 会 自动 在 
画 193 画 








工程 中 添加 一 个 Classl 类 ， 访 类 有 DataBindingBehavior 等 5 个 属性 。 新 建 一 个 ActiveX DLL 
工程 ， 名 称 为 Math3D。 

将 自动 生成 的 Ciassl 类 的 名 称 改 为 Vector3D， 在 代码 窗口 添加 实 班 代 码 ， 如 下 所 示 。X、 
y、z 属性 分 别 表示 三 维 矢量 在 X、y、z 三 个 方向 上 的 值 ， 


ption Bxpjiicit 





Private mdblxX As Doubte 
Private tndbIY As Doubie 
Private Imndbl 之 As Double 


Public Property Let zByVal vData 点 5 Double) 
mdblz = vYData 
End Property 


PubHe Property Get zf 目 s Dounble 
z= IdblZ 
Enqd Property 


Public Property Lety(BYyYWVajl vYData As Double) 
tndblY = vData 
End Property 


Public Property Get y0O As Double 
y=madbly 


Enmd Property 


Public Property Let x( 了 yyYwaj vData As Donble) 
Indbjx = YData 
End Property 


Public Profpetty Det xO As Double 
工 = ID 和 bb] 全 
End Property 


Normnalize 过 程 对 矢量 进行 妇 一 化 ， 需 要 调用 GetLength 函数 获取 矢量 的 长 度 。 
' 归 一 化 
Public Sub Normalzef7 
Dim dblLen As Deuhle 
dblLaen = GetLength 
mdblX= indbiX ydblLen 
tmdblY = fadhlY /dlLen 
mgblz = mdblZ /dblLen 
End Sub 


GetNormal 函数 返回 将 当前 矢量 归 一 化 后 的 矢量 。 
获 东 归 一 化 矢量 
Fublic Functiorn GetNermalfy As VectorD 
了 pi 邮 ILen As Dounble 
db]Len = 台 etLength 
(etNormnalx = miblx dhlLen 
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Cetworrmaly = mdblYy /dblLen 
Cetiformalz = tmdbhlz ydblLen 
End Pinetioy 
GetLengthZX,GetLensthYZ, 利 |] GetLengthXY 函数 分 别 返回 矢量 厅 ZX,YZ 和 XY 平面 上 的 
投影 长 度 ，GetLength 函数 返回 尔 量 的 长 度 。 
' 压 取笑 量 在 ZX 面 上 的 投影 长 度 
PupIic Funectionm GetLengtbZX 人 0 As Dompie 
GetLengthZX = SqrmpaqblZ* PdblZ + mdblX* mdqbl] 芒 ) 
End Functcn 





' 著 取 矢 量 在 YZ 面 上 的 捞 影 长 度 
Public Punection GetLengthYZ0 上 8 Denble 

CetLengthYZ = SqgrimdblY * tmdblY +mndblZ * mdblZ) 
Eng Funetion 


著 取 矢量 在 XY 面 上 的 投影 长 度 
Publie Function (etLengthXYO As Double 

GetLergthXY = Sqrtmadhb]X* md 的 X + THMY * mdtY) 
Enqg Function 


攻取 矢量 的 长 度 
Pubte Fumnction GetLengthO As 和 ouble 
GetLength = SqnmdbXs*s tmdblIX +ImdabhY + mdblY + mdblzs mdblZ) 
End Function 
下 面 岂 个 函 数 实 现 矢量 运算 ， 包 括 
Devide 函数 返回 矢量 除 以 常数 以 后 的 结果 ; 
MultDet 返回 矢量 点 乘 的 结果 ; 
Mualtcross 函数 返回 矢量 叉 乘 的 结果 ; 
MultCon 函数 返回 矢量 科 以 常数 的 结果 ; 
Subtract 函数 返回 矢量 相 减 的 结果 ; 
Add 函数 返回 矢量 相 加 的 结果 。 


' 和 天 量 除 以 常数 

Publie Function DevidefdblC As Donbley As Vector3 了 DT 
Dim vctD As Wector3D 
Set vctD = Yew Vector3D 


vctDX = ImdbXdblC 
VctD.7 = meihlY dblC 
YetD.z= Hadblzy dblc 


Set Devide = YctD 
End Function 


' 天 县 点 式 
Public Furmection MultDolfvctV As Vector3D) As Double 

MultDaot = 芭 gb] 基 + VctVX +T mdblY * vectVyT+T madblZ*# vectVz 
Endq Functon 
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' 舌 量 又 乘 

Publice Fuonction MultCrosstYetV 由 5 WectorD) As Vector3D 
Dim vetv 上 As Wecetor3D 
Set vctM = Mew Veetor3D 


vctMX = ImmdbljY * vetwV.z - VCctV.Y 本 mdblZ 
YEtLy7 = Imdbl 忆 站 YetYX -VCEWZ YY Ind 芍 六 
VCctM.z = Imdb] 基 者 VCEWyY -VCtY 克 半 ImdblY 


Set MiultCross = vectk{ 
End Function 


' 舌 量 乘 以 常数 

Puyic Function MultConfdblc 上 5 Doubley As Vector3 卫 
Pim vctM 上 s Vector 站 
Set vctM = New Vector3D 


YctMX = mdblx* dblC 
YctM.y = ImdblY * dblC 
vctMz = TndblZ*# dblC 


Set MmlitCon = vectM 
End Function 


' 闫 量 相 减 

Public Fonction Subtract(vetV As Vector3D) As Vector3D 
Dim vetS As Weetor3 卫 
Set vc 的 = NewW Vector3D 


VCtS 和 = tndpJI 全 - VCbWX 
全 - 了 = imndblY - vetV.y 
VCctS.z = tm 了]Z - vectwYz 


Set Subtract = YCtS3 
Ehd Furction 


' 关 县 相 加 

Public Funetion Adq(vetV As Vector3Dy As Vector 站 
In Ye AS Vector 了 
Set yet 上 A = New Vector3DD 


vct 屿 .和 =tmtdbhtX + VCctWwX 
vctA.y= ImmdblY + VctwVy 
YEtA.Z= indblz + vctEWwZ 


Se 点 dd = VE 
End Function 


在 “工程 ”菜单 中 单 击 “添加 类 模块 ”选项 ， 打 开 “ 添 加 类 模板 ”对 话 框 ， 单 击 “ 确 定 ” 
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护 钮 ， 添 加 一 个 Classl 类 。 将 类 名 改 为 Matix3D， 在 代码 窗口 输入 实现 代码 。 


Matrixz3D 类 有 一 个 M 属性 ， 它 是 一 个 二 维 属性 ， 需 要 给 出 横向 和 维 向 的 索引 值 。 
Option ExpPhicit 


Private imdb To 3.0To 3 As Double 


了 Public Property Let MI{ByVal intr As Inteper ByVal ing As Integer ByVal dhiData As Double) 
mdblM(intL infT) = dhlData 
End Property 


Public Property 妇 et MByWVal mtU As Inteper 了 ByVal inU As Integer) 上 s Donble 
M = mdhIMIintL int 
End Property 


Getvaliue 函数 计算 矩阵 行列 式 的 值 并 返回 。 
计算 行列 式 的 值 
Public Function GetValuef) as Double 
GOetvalue = mdblMI0 站 * mdblM 1)* mdbhIM02 2)+ 

imdblvMn, 1) * mdblM( ,20 * mdblM(2.0+_- 
IndbiMiO 2 mdblIMCL 的 + mdplMC2 TI)++、 
indblMf0, 2 + mblM(1, 1 * mdplM2 的 + 
IdbIMIO 1* mlbbMC 的 * mdblMr2, 27+ 
mdblM(0, 0) * mdblIM0L 分 smdblM(2, 1 

End Function 


IdenticalMatnix 过 程 生成 单 忆 抑 阵 。 
单位 抱 隆 
Public Sob ldenticalMiatirx) 
Dim int 羡 S ImtegeT 
Dim inUy As Integer 
For ip 上 = 属 TJo3 
For in 林 =f0T3 
地 1 工 = int Then 
mdblMontL ipt 站 = ] 考 
E]se 
mdblMintL int 站 = ( 呈 
Bnd 下 
Jext 
Jext 
End Sub 


Multiply 函 教 计算 矩阵 相 药 的 结果 并 返回 。 
矩阵 相 苹 


Public Funeticn Multiply(mtxgM As Matrix3D) As Matrix3D 
Dim mtxMult As kfatix3D 
Set mntxMult = New Matrix3PD 


Dim int As Jnteger 


Dim 训 U 和 Tnteger 
Forint=TTo3 
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民 寺 衣 厅 三 机 本 训 于 
ETLTLRLILTLRLEI EL LEE TEL 人 LE 
TH 
全 让 吉之 证 计 世 肛 和 人 于 it 和 垃 _ 
mbiMilintl 3 mutxML MI3， imt 
we 寻 
网 权时 


昌吉 Ri 着 王 而 本 本 全 村 
[后 de 
TransT ScieT RaCT 和 NirrorT 函 籽 人 茹 别 计算 平移 变换 ， 比 例 变 换 ， 施 转变 上 岂 和 鱼 居 变 
的 选 阵 ， 
' 计 平 释 豪 搞 引 阵 
的 时 FREE TESTIWEG 全 开店 生计 失 人 | 支 于 略 
语 二 民权 
医 F| FUE 届 而 
“计算 比 幅 变换 模 阵 
人 证 全 加 本 品 让 二 | 全 于是 于 珊 呈 人 Di 志 | 二 ] 二 让 arigg 3 
串 胡 代码 
瑟 nd FIECH 
计算 诛 转 蛮 棉 重 孟 
be Fnatian 民 GLageTIWETW 矶 王 厨 本 罗 , 二 li 癌 册 站 aheT 起 守卫 [ 贡 让 
浴 加 疏 画 
攻 r 本 Fuji 


:计算 恒 俺 证 接 类 阵 
半 EE 让 站 Et 用 TIEGPTTAEEAW 疝 二 WGHET3C 屿 贡生 
小 吉 代 到 
ad Eestionm 
烛 的 纪 加 完成 以 后 ， 在 工程 的 “文件 ” 获 单 中 单 击 “ 生 成 Math3pudll.,.” 选项， 生成 动 
态 链 接 库 WaihsD,ail， 


2， 测 试 DLL 

生成 ActiveX DLL 后 需要 对 擅 库 进行 员 
试 ， 可 以 直接 在 工程 中 添加 工程 进行 测试 ， 也 
可 以 另外 建立 工程 进行 测试 下面 另外 建立 一 虞 下 让 is 
个 新 工程 副 试 Mati3m 库 ， ss 

新 建 标准 EXE 工程 DLLTest 窗 体 名 称 为 “上 孜 总 SeTPETE 
frmDLLTEst 在 “工程 * 音 中 单 击 “ 引 用 ，. 
婚 需 ， 打 开 “ 引 用 * 对 话 框 。 在 该 对 话 杠 中 利 
用 “ 剂 览 .” 控 钮 找到 前 面 生成 的 Mathap 库 
划 选 择 它 ， 如 图 全 14 所 示 。 

在 窗 体 横 块 中 输 六 下 而 的 仿 码 ， 对 Ce 
ianb3p 库 中 的 灶 进 行 届 试 。 立 东 1 引用 =” 财 话 要 





到 下 红 7 








〇 ption Explicit 


Private Sub Form_ Cek 
Dirn vctPirst As Wectot3DD 
Dim vctSecond 上 As Weetor3D 
Dim mtxFirst As Miatnx3D 
Dim mtxzSecond 和 5 Matnx3D 


Set vctFirst = New WEctor3DD 

Set vetSecond = New Vector 
Set InftxFirst = New Matrix3D 
Set IntxSecond = New Matrix3D 


第 一 个 矢量 
VEetEIrStX = 工 (0 
vetPirsty = 78.5 
YetEirstz = 102.9 


第 二 个 矢量 
vctSecond = 109.2 
VctSecotnd.y = 82.5 
VCctSecond.z= 180.8 


在 窗 体 上 输出 第 一 个 矢量 和 第 二 个 矢量 

Dim strPirst As String 

Dim strSecond As String 

stiFirst = "第 一 个 矢量 : “六 StrfvetEifst zx 不 "“ 雄 StrvctFirsty) 克 ” “区 StrtvetFirstz] 

strSecend = "第 二 个 矢量 : “此 StrfvetSecond.z 克 "” 度 StrvetSecotd. 们 上 放 _ 
”SrfvetSecond .zy 

Pint 

Print strPirst 

Print strSecong 

Prcint 


第 一 个 天 量 的 长 度 

Dim strLen As String 

saiLen = "第 一 个 矢量 的 长 度 : " 权 vetPirst,GetLength 
Print StLen 


矢量 运算 

Dim yctaAdd As Vector3D 

Dim vctSnb AS Vector 

Dim dblMulPot As Double 

Dim vetMulCro As Wector3D 

Dim vctDev As Vector3D 

Set vcktAdd = vctFirstAddfvetSecond) 

Set vctiib = Yetbirst,SubtractfyctSecondJ 
弛 I]MunlDot = vctFirstMultDot(vetSecond) 
Set YCtMDICro = vctFirst MultCrossfvetSecond) 
Set vetDev = YctFirst.Devidef2) 
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输出 运算 结果 

Dim strAdd As String 
Dim strSuh As Strirg 
Dim strMulDot As String 
Dinm strMulCro As String 
Dim strDey 点 5 String 


strAdd = “矢量 的 和 :; “下 StfyvctAdd.x) 帮 7" "让 Styctadd 门 度 "" 朗 StvctAdd.z) 
strSub = " 壬 前 的 闫 : “上 度 Str(wctSuhb.x) 诺 " "让 Str(vctSub. 站 上 诺 ”区 Str(YctSub.z) 
strMulDot = "矢量 点 乘 : "人 StfdblMulDob 
trMulcCro = "矢量 及 蒋 ，" 让 SbfvetMulCro.x)"" 克 StfvetMulCro 六 让 
"“" 胡 StfvctMulCro.z) 
strDev = “第 一 个 矢量 除 以 2 "站 StrftvctPDevx) 区 "区 SirfvyctDev 站 让" 放 StrfvctDevz) 


Print strAdd 
Print srrSnb 
Prnt strMulDet 
Print strMuICro 
Prnt strDev 


第 一 个 矩阵 和 第 二 个 些 阵 
Dim strFirstvttO To 3) As StrinP 
Dim strSecondM40 To 3) 上 5 Strin 
Dim int As Intieger 
Dim int 和 s Imteger 
For it = 站 To3 
ForinJ =0To3 
ImtxFirst.JWMICntL int) = im 姬 十 im 订 
ImtxXSecond,MfintI jing) = inty - in 革 
StrPirstMIintD = gtrFirstMGintD 胡 StrtmtxFirst.MIintL intJD) 席 "” " 
StrSecondMrintTD = StSecondM0ntD 必 SHIKSecond Mnt it 席 ”” 
Nexst 
Next 


输出 两 个 矩阵 
Print 
Print "第 一 个 矩阵 ，" 
Ferint=UTlo3 

Print strFRirfstMIinir} 
Next 


Pritnt 
Print "第 一 个 矩阵 : “ 
Forint =0To3 

Print strSecctdMintT 
INext 


' 计 算 两 个 矩阵 的 屁 积 
Dim mtxMul As Matmix3D 


"19 多 ， 
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和 ful 去 WErwtulkt 应 STEEL Ararl in 巧 ” “ 
辣 可 研 





曾 到 15 测试 数学 库 


3. 在 MATLAB 中 使 用 Active% DLL 
创 巡 井 油 试 ActiveX DLL 以 后 ,可 以 在 MATLAB 让 用 aetxserver 示 数 创建 读 DLL 中 类 的 
生 例 。 例 要 ， 下 面包 建 WathaD 库 中 三 elor3D 和 的 实例 : 
上 SEERRTRETT ii 了 3D,WECUGTYLDT 
是 | 可 
CN 而 二 辣 _ Weeory 
默认 时 ， 该 对 瘟 的 所 有 属性 值 都 为 和 设置 兰 赂 人 忻 值 ,用 Er[ 冰 可 以 显示 当前 的 局 性 但 ， 
和 于 生 二 二 站 用 下 本 二 人 亲 : 罗 上 aR 
[| 
时 站 
让 
下 


用 invoke 丽 数 可 以 显示 炎 的 方 祛 及 其 调用 格式 ， 


a 0 = 





hi.invoke 

各 dd = [handle, hamdle] Addthandle, handle) 

Devide = 由 amdle, douhlel Devidetharndle, doubie) 
GetLength = dounble GetLengthfhandle) 
GetLengthXY = double GetLengthXY(handle) 
GetLengthYZ = double GetLengthYzfhandle) 
GetLengthzZX = doubie GetLengthZxrfhandie) 
etNeormal = handje GetNomnalthanqle) 

MnuitCon = thandle, doublel MultConthandle, getuhble) 
MnultCross = [handle, handte] MultCrossfhandle, handle) 
MuitDaot = [doubie, handie] MultDotthandgie, handie} 
Normalize = void Normalizefhandle) 

Subtract = [handle, hamdle] Subtractfhandle, kandle) 


下 面 调用 GetLength 方法 求 矢量 的 长 度 。 


hl,invoketGetLength) 
ans 二 
23.7487 


actxserver 函数 支持 一 个 库 中 有 多 个 类 的 情况 ， 例 如 下 面 创建 Matrix3D 类 的 实例 。 


ha2=actxserverf Math3D.Matix3D7 
2 = 
COM .Math3D_Matix3D 


用 ipyoke 函数 显示 该 对 象 的 所 有 方法 ， 





h2.imvoks 

GetValue = double GetYValmethandle) 

IdenticalMatirg = void IdentcalMatirxfhandle) 

M = double Mthandle, intie, intl6) 

MirrorT = [handle. handle] MirrorThanele ,handlie) 

MnmjtiPly = [handle, handlej Minltiplythandle, handle) 

RaotateT = [handle, hangdle, double] ReotateIThandle, handle doubley 
ScaleT = [handle, douple] ScaleTfhandie double》 

Trans 了 T = [handqdle, handle] TransThandle, handle) 


8.2.3 ”使 用 AetivyeX 下 XE 


ActiveX EXE 是 可 执行 的 ,常常 用 于 实现 PCOM。 使 用 actxserver 函数 的 第 2 种 语法 格式 
可 以 创建 ActiveX EXE 的 实例 。 其 基本 操作 步骤 与 前 面 两 种 组 件 的 相似 ， 不 再 详细 进行 介绍 。 
需要 注意 的 是 ， 使 用 ActiveX EXE 时 ， 使 用 的 是 进程 外 的 集成 方式 。 


8.3 基于 COM 组 件 的 接口 实现 


实际 上 ， 上 一 节 介 绍 的 ActiveX 技术 就 属于 COM 组 件 技术 的 范畴 。 该 节 主要 讨论 了 在 
MATILAB 中 调用 VB 组 任 的 问题 ， 本 节 则 讨论 在 VB 中 调用 MATLAB 组 件 的 技术 。 这 两 节 内 
窜 介 绍 的 是 MATLAB 接口 方面 的 最 新 技术 ， 建 议 用 心 掌握 。 
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8.3.1 使 用 COM 生成 器 


从 65 版 本 开始 , MATLAB 提供 了 COM 生成 器 , 使 用 该 生成 器 , 可 以 将 大 部 分 MATLAB 
蚊 数 和 自 定 尽 函数 打包 成 组 件 ， 然 后 集成 到 支持 该 技术 的 应 用 程序 中 去 。 使 用 该 技术 ， 可 以 
在 很 大 程度 上 脱离 MAILASB 环境 ， 

第 13 章 详细 介绍 COM 生成 器 的 用 法 ， 请 参阅 ， 


38.3.2 关于 MatbixVB 


COM 生成 器 出 现 以 前 ，Mathworks 提供 MatrixVB 组 件 实现 组 件 式 集成 。 该 组 件 具 备 数 
值 计 算 、 绽 图 等 多 方面 的 能 力 , 在 一 定 的 历史 阶段 发 挥 了 它 的 作用 。 但 COM 生成 器 出 现 以 后 ， 
Mathworks 公司 不 再 将 MatrixVB 作为 单独 的 产品 提供 ， 因 为 COM 生成 器 已 经 可 以 取代 该 组 
件 的 功能 ， 

相对 于 MatrixVB， 使 用 COM 生成 器 具有 以 下 优点 ; 

* 一 般 来 讲 ， 用 COM 生成 器 生成 的 组 件 会 比 MatrixVB 小 得 多 。 如 果 希 望 用 MATLAB 
帮助 绘 一 下 图 ， 或 者 进行 某 些 单一 的 矩阵 运算 ， 在 以 前 需要 载 入 整个 MatrixVB， 其 中 包括 很 
多 根本 用 不 着 的 函数 。 现 在 使 用 COM 生成 器 就 可 以 “ 量 身 定 做 ” 了， 组 件 本 身 不 会 有 多 余 的 
东西 。 

es 由 于 COM 生成 器 是 一 个 生产 工具 ， 而 MatrixVB 是 一 个 产品 ， 所 以 使 用 COM 生成 器 
具有 大 得 多 的 灵活 性 ， 
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第 9 章 MATLAB 与 Visual C++ 接口 


MATLAB 7 版 本 自 带 了 C 语 言 编译 虹 (Compiler), 可 以 将 M 文 性 转换 为 C-MEX 或 CAC++ 
程序 。 根 据 MATLAH 是 否 运 行 ， 一 般 将 MATLAB 与 VC 接口 分 为 两 大 类 : 需 MAILAB 在 后 
台 运 行 的 混合 编程 接口 和 可 以 脱离 MATLAB 环境 适 行 的 独立 应 用 程序 接口 。 本 章 主 要 介绍 这 
两 种 接口 的 实现 ， 


9.1 MATLAB 与 VC 混合 编程 接口 


MAILAB 与 VC 混合 编程 接口 ， 主 要 有 如 第 7 章 所 述 的 MEX 文件 、engine 应 用 程序 和 
MAT 文件 三 种 。 由 于 VC 的 内 存 管理 及 类 库 国 数 比 C 更 加 灵活 方便 ， 因 此 ， 对 这 三 种 接口 方 
式 在 VC 中 的 实现 ， 主 要 基于 内 存 管理 和 类 库 函 数 应 用 方面 毅 述 。 


9.1.1 VC 与 MEX 文件 示例 一 


本 节 是 基于 第 了 章 的 MHX 文件 示例 “Hl.c” 经 过 局 部 修改 而 得 ， 文 件 名 改 为 “HI1,cpp”。 
表明 ， 该 MEX 文件 是 MATLAB 与 C++ 的 接口 。 与 一 般 的 C 接口 程序 相 类 似 ,“Hl.epp” 葡 
件 也 包括 三 个 部 分 : 

《1) 头 文件 : 与 一 般 的 C 接口 程序 一 样 ， 必 须 包 禽 “mexh” 头 文件 ; 

《2) 用 户 Cpp 程序 :内存 分 配 函 数 为 new， 释 放 函 数 为 delete， 用 法 与 普通 Cpp 程序 一 
样 ; 

《3) 接口 函数 mexEFunetion: 与 一 般 的 R 接口 程序 一 样 ， 也 是 基于 mxArray 对 象 进行 数 
据 传送 。 

“H1.cpp” 程 序 清 单 如 下 : 

WE 关 文 件 NAAAAANAHANAHH 
ineciude "mexh" 

1 让 Cogp 程 序 NA 
double CutPutfint nudouble *rb) 

finti double xs snm0i 

FILE *fpl1; 

sum=new doublef1];AAWAAAAANN 内 存在 管理 机 制 为 Cpp 机 制 
这 (ip1=fppenf"OutPutltxi ww ==NULLI[printf ”Cantopen OutPutilewn exit(D)i 
SUm=0.0; 

名 rint 二 1 input 经 和 Data 区: 0 
forli=0;i<n;i++)[*sum=wsumHHrPfil;iprntftpl” 允 7.2 直 "二 中 
fprintRi1 nstim= 站 7 了 72 Sum; 

feilose( 印 H; 

SUITO 一 +Simn， 

delete sutm;AWHN 内 存在 管理 机 制 为 Cpp 机 制 

Teham sumg0; Mr cpp 程序 返回 计算 值 

} 


203， 











1 接口 程序 mexFunctionAAAAHAHAAHANHN 

void mexFimnctiomint mlbhs,mxArray *plhs[],int Drhs, mxArmay *prhs 门 ) 
fintii 

Qouble *TP*]PSUIn， 

TIXAIT8Y *#1PO: 

HH 由 pmhsD 中 到 得 MAILAB 输入 数据 

TIP=new doublefnrhsj; AAA 内 存在 管理 机 制 为 Cpp 机 制 
forfi=0:i<nrhas;iH+TrEP[=mxtGetScalar(prhs[》) 

AAA 调用 Cpp 程序 


SUm=COntPutfnhs,rP) 
1 进行 数据 类 型 转换 ， 并 存 入 pths[] 返回 MATLAB 
nlhs=nrhs; 


Plhsft0]=mxtCreateDoubleMATrixfLnalhsmxREAL， 
HPO=mxCreatebDonbleMATIrixflnths.mXREATIh 

1]P= new doablernthsj; 

forfi=0ji<nlhs:i++]PP[i=isstuny 

forfi=0ji<nlhs;i+H*(mXGetPr(IPO)Hi)=*CP+i): 
plhsI[gl=mxDuplicateAray(IPO07: /使 用 内 存 数据 复制 函数 mxDnuplicateAmay0) 
mxXDestroyArray(PO) 1 内 存在 管理 灿 制 为 MATLABE 灿 制 

delete IE; 

delete 也， 


】 
AN 铺 守 NAN 


在 MAILAB 命令 窗口 中 将 “hlcpp” 文 件 编译 后 , 得 动态 链接 子 程序 hi.dl, 并 在 MATLAB 
命令 行 中 调用 。 
DIEXhh1.e 
>>arzhlri .2345) 
0 15 30 本 5 0 


同时 ， 由 于 用 户 Cpp 程序 中 执行 了 文件 输出 ， 在 当前 目录 下 生成 “OutPutl.kkt” 文 件 ， 
输出 结果 为 : 


Input $ Diata is: 1. 的 2.00 3.( 风 4.00 .0 
sum= 15.00 


以 不 同 参 数 调 用 hl.di， 如 
>> b=hhlf2.41) 
忆 三 
避 白 


当前 目录 下 生成 “OutPutltxt” 文 件 ， 输 出 结果 为 ， 


了 pat Data 认 : 24.00 4.00 
suUm= 6.00 


9.1.2 VC 与 MEX 文件 示例 二 
一 般 捕 况 下 ， 我 们 都 是 在 MATLAB 命令 行 下 编译 MEX 文件 ， 所 用 命令 为 ， 


>2>InEX FilenaIne.e 


伺 因 MEX 文件 是 以 CAC++ 语 言 为 主编 写 的 程序 ， 只 不 不 过 在 MEX 文件 中 添加 了 接口 函 


人 村。 


上 menEunetoa， 且 读 函 数 可 与 CC++ 示 数 相 -- 载 。 因 此 ， 可 在 WisualC++ 的 IDE 蒜 填 中 篇 译 
MEX 云 件 。 这 种 方法 将 极 大 地 方 伍 妨 程 者 利用 VsualCGHrClasswisard 到 建 娄 和 维护 热 ， 并 利 
用 WisuuC++ 的 项 目 管理 进行 项 目 管理 。 由 于 此 种 方法 编号 的 MEX 文件 是 在 VisualC++ 的 IDE 
环境 中 护 详 ， 困 此 ， 基 调试 方法 与 一 般 VC 工程 基本 一 致 

未 节 以 “MyDLL" 工程 为 例 , 珊 述 在 YisualC++ 的 IE 环境 中 国 写 和 编译 MATLAB MEX 
充 虱 。 


1 外 臣 max 
沪 去 件 在 骂 MATLAB7 好 extermminelade 目录 中 , 打开 访 误 件 , 按 到 TexFuneton 落 数 审 明 ， 
利用 WC 中 的 甘 鱼 字 “”_declspecfdllexpor) ， 申 胡 访 阴 数 为 导出 函 ， 拉 将 充 性 曙 存 为 
SEE 本 忆 御 ” 
TAO 证 MLEX- 让 韩 


世间 二 ERELENCLENTL 
语 [ 硒 las 站 Himlser afaRecied GutPias 
林寺 几时 = 在 抽 到 人 亲朋 十 六 轩 TANIETS HG IEPUL TYEGTTESEE 1 
刘 Eu 意 曾 ber 直道 后 旺 时 
56 到 ITEY 二 rthel| 原本 拓 团 疏 必 而 醒 则 二 可 和 二 
用 
JW 椒 覆 着 另 在 为 本 旺 -WC 上 
el 加 eaiJwoid TeEIFUNEHOH 
ji 二 下 项 硬 亲 晤 裔 HE 四 | 让 十 让 BC 证 二 NETOIEE 
1 天 FT 让: 着 JEERIMW 各 辣 古 国 上 GatpaT ie 
i 1 和 权 全 hes 时 Fit 人 
Ga ES 上 raw 皇 Fahs[| 本 硬 TY OF PaimIers TO iEPSILIEEUEIEIMS 时 | 


上 


2 创建 MFC AppWizardtdili 工 程 WyDl 

和 返 行 WisualC4+ 间 单 击 File 一 New， 打 天 Project 对 话 框 来 创建 各 种 VC 工程 ， 选 取 MFC 
Appwizardrdt【 图 91， 其 他 程序 基本 相同 )， 在 Ioctation 访 加 和 寞 中 输入 葡 便 建 工程 的 保存 路 
六 ， 在 Projeet name 蝙 妊 框 中 输入 工程 名 如 “MyDlls， 音 击 各 民 进 太 下 一 步 工 程 设 置 对 话 佐 ， 
选中 RegularDLL with MFC Statically Linked， 单 击 Finish 完成 MyDI 工程 创建 ， 





图 朵 1 MyEGI 工程 亿 建 


本 本 全 于 


3. 设置 系统 选项 

1》 设 定 头 文件 和 库 文 件 路 径 。 

菜单 Tools 一 Options 一 Directories 

Inaclude f 介 eg: 添加 %MATLAB7%externinclude 

Include files: 添 加 %MICROSOFT VISUALSTUDIO%VC98WMFCYSRC 
Library files: 添 可 %MATLAB7%extemvinclude 

(2 设置 编译 连接 选项 。 

菜单 Project 一 Settings 

CC++ 一 Preprocessor definitions: 添加 MATLAB_MEX_HILE 
Link 一 ObjectLibrary medules: 添加 1ibmat.lib ibmex.lib ibmx,]ib 
(General 一 Microsof Foundation Classes: Use MDRC in a Static Library 


4， 编 写 DLL 主 程序 

(1T) 在 MyDlh 中 添加 头 文 件 : 
nclude "mex_vc.I 

《2) 在 MyDllLcpp 中 添加 头 文件 : 
而 nelude "stda 克 .hb” 

(3) 编号 mexFunction 函数 。 

在 MyDllcpp 文件 最 后 中 找到 : CMyDILAPP theApPp; 

在 其 后 编写 用 户 C 函数 和 tnexFuntion 接口 函数 如 下 ， 
WAN 用户 区 画 数 , # 注 ， 不 在 MyDllLh 中 进行 函数 申明 
dounble OutPutfint mn, double *#TP) 


inti donble xsurmsumn0: 
FILE * 人 1; 


SUID=new tiotble[lTVAAAAAAA 内 存在 管理 机 制 为 Cpp 机 制 

这 (ip1=fopenCOutPutl.Etf wm==NULLITprintf” Cantopen OntPutfilew” ;exit(0);] 
林 SUIT 如 .人 

印 Ttf 印 1 IDput %d 和 Data 证: 
fori=biicnii++if#suim=*swtmdtP[i]:iprintft 扣 1” 557.28 "rP[);] 
fntfftpt nsom= 好 72Hf nm"*sunm， 

feJosetf 印 1 

SUInO=*SuTT 

delete sumyWN 内 存在 管理 机 制 为 Cpp 机 制 

retmm sum0; NAN Cpp 程序 返回 计算 值 

] 


HA 接口 函数 , 则 注 ， 不 在 MyDllLh 中 进行 函数 申明 

void mexFurctionf 

地 tmlhs, imnxXArray pihs 中 ， 

int hrhs, Const IIXATTaY7 *prhs[] 

JW 和 际 mexFunetion 夏 与 mex_vch 中 一 致 ， 分 行 写 
fint 1 

double #rP*+IPsum， 

InXArray +lP0 


0 的 ， 





HH 由 prmhs[] 中 取得 MATLAB 输入 数据 

P=new double[nds]; AAA 内 存在 管理 机 制 为 Cpp 机 制 
forfi=0:i<nrhs;i++TP[=mxtetScalar(prhs[i); 

AAA 调用 Cpp 程序 

suUm=ODutPuttnrhas.rE): 

1 ”进行 数据 类 型 转换 ， 并 存 和 人 Plhs[] 返 可 MAILAB 
nihs=mrhs， 

pihs[0=mxCreateDeubleMATIYrixtlnlhs mxREATL 
]PO=mxCreateDoubleMATYixflnlhs,mxREATL):， 

]P= new double[nihs]; 

fori=0;icnlhs:i+ 二 PP[]=ir*sumi 
fotfi=0:icnjlhs:i++)#fPXGetPIHTPO 十 一 (了 P 二 1， 
plhs[0]=mxPuplicateArray0PO); 7 使 用 内 存 数 据 复制 请 数 mxDauplicareArrayO 
mxPDestroyArray(lPO); AAA 内 存在 管理 机 制 为 MATLAB 机 制 
革 elete PP， 

delete 纠 ; 


| 
AAA 本 


在 VisualC++ 中 编译 得 得 动态 链接 子 程序 MyDll.dl， 并 在 MATILAHB 命令 行 中 调用 。 


>> clear 记 
>> Mydll1,2.4.5.6,7) 
bns 三 
0 23 30 75 1]100 123 


同时 ， 由 于 用 户 Cpp 程序 中 执行 了 文件 输出 ， 在 当前 目录 下 生成 “OutPutl.kt” 文 件 ， 
输出 结果 为 ; 


Input 6 Data ia: 1.00 2.00 4.00 .0 00 7 了 .0 
Sum= 25.00 


9%.1.3 YVC 与 引擎 应 用 程序 


在 VisualC++ 中 使 用 engine， 除 VC 中 进行 必要 的 环境 配置 外 ， 基 本 上 与 语言 中 使 用 
engine 相 一 致 。 本 节 以 一 个 篇 单 的 例子 “VCeng1” 工 程 来 说 明 在 VisualC++ 中 使 用 MATLAHB 


emngine。 


1 VisualC++ 工 程 创 建 

启动 WisualC++ 并 单 击 File 一 New， 打 开 Projeect 对 话 框 来 创建 各 种 VC 工程 ， 选 取 MEC 
Appwizard(exe)〔 图 9-2， 其 他 程序 基本 相同 )。 在 loctation 编辑 框 中 输入 欲 剑 建 工程 的 保存 路 
径 , 在 Project name 编辑 框 中 输入 工程 名 如 “VCengl” 单 击 OK 进入 下 一 步 工 程 设 置 对 话 框 ， 
选中 single document， 单 击 Finish 完成 VCeng1l 工程 创建 ， 


2.， 环境 配置 

《12 设 定 头 文 件 和 库 文 件 路 径 。 

菜单 Tools 一 Dptions 一 Directories 

inciude fles: 汪 加 站 MATLAB7%extetninclude 

Library files: 添 加 %%MATLAB7%\ExterLibYWin32MicrosofNMsve60 
《2) 设置 编译 连接 选项 。 
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单 Pmjeet 一 Settings 
LinKE 一 中 jecULibiary Gdules 三 加 和 waaatlib 二 et 时 ini 计生 让 总 ,于 
站 着 放 F 一 隐 和 世 TI 荆 信 FE 二 让 位 La 人 LTRC 这 二 Siatic iLibramy 





和 一 FT -or 
| 站 村 


ES 


图 乐 2 创建 WECengl 工程 


3 添加 柄 应 函数 
别 在 ResoureeView 中 订 开 全 单 IDR_MAINFRAME, 添加 WMATLABEngins-<VCengl 贡 单 项 
(图 93) 再 利用 ClassWizand 为 VCengl 划 单 座 加 CVCenglView 窗口 Command 消息 映射 函 
数 DnMenuWVCengli)。 





有 和 


图 3 OnMenuWVCenElt 了 亲生 可 射 十 数 


志 。 调用 引 晤 库 函 败 

11) 在 调用 引 玖 库 的 飞 立 件 中 滞 加 引擎 库 拓 云 件 "engine hh 

可 例 丰 “VCe6gTWiERHhs 中 户 仙 ， 出 malude "FEiE-h  。 

12) 在 调 才 引擎 库 的 实现 立 忻 中 娠 如 引擎 出 用 代码 ， 

本 例 在 “VCeang1Viewepp” 的 响应 函数 OriMenaVCengl1h 中 话 加 如 下 化 加 ， 
WII 鸡 库 靖 监 画 阳 保 国 铺 音 
WGHEWCemB 了 届 OURIETIWICSIE TD) 


| 

me 和 本 各 对 象 指 仁 击 二 

遇 直 有 

川上 到 3 

大 和 ATTE 二 TUILLL; 

这 上 攻 时 eeOPenyNTLILELTURAA GT 开 结 | 克 

| WEREBaNIYCS GE GEI 和 E 抽 放 TLA 二 IE 辣 e 起 订 - 生 引 | 


TemxCrealeDenablesMATYiafT ,ma 次 下 AL 
1 加 E 交 人 ar ETichaars 开 | “ 虽 邓 50 可 me 
百 到 人间 





局 NA 通 填 引 理 库 靖 监 辐 用 WATLAB 冀 过 
利 记 芭 相 1 富 请 半 到 HE 和 直人 

下 相思 W 天 且 Urimi 丰 [ER 让 网 癌 写 二 放下 

下 区 车 V 大 号 盾 讲 计 [E 币 ，e 和 -下 二 司 南 天 下 

二 站 医 尼 于 天 呈 时 二 齐 [ 和 让 和 下 让 -站 革 估 


让 间 本 Wi 到 ti 全 基 全 玉 人 

重组 旦 | 兹 UnimE 和 人 We 和 

下 机 昌 上 号 天 号 国 疝 症 证 放 ， 划 计 芝 EL 下 全 

晤 站 忆 导 Gete3 辣 二 | 

EngCinaetepk 关闭 让 芥 ， 引 午 工 俐 空间 的 变量 由 机 WPLAB 自动 内 看 笃 放 机 制 哪 政 
mm DestmyArraTI NSingla Document 宣 间 中 变 全 的 内 存 隆 放 


| 
RE 
在 Visaaac4+ 中 蝙 译 执行 VCengl， 程 序 通过 引 擎 自动 MATLAB， 并 调用 MATLAB 合 令 


洗 成 ntx) 曲 线 给 缸 后 【图 光 4j， 调 用 MEC 消息 柑 提 示 用 户 进 租 将 关闭 引擎 程序 用户 确认 
后 ， 美 局 引 擎 得 译 ， 进 程 返 回 到 Singls Doeument 程序 框架 ， 以 便 等 待 用 户 的 其 他 锣 作 * 





夯 34 Wangl 通 过 引 蕊 库 调 用 MATLAB 而 专 搁 制 的 正装 曲 贿 


414 YYC 与 MAT 文件 


1.， VC 输入 巡 出 流 与 MAT 文件 
Visual C++ 中 数据 的 输 庆 输出 放 采 用 冲 行 化 方式 进行 ， 趾 行 化 是 通过 MPC 报 供 的 区 
Carchive 对 CH 运算 符 << 和 >> 重 载 后 进行 的 。 一 般 情 况 下 ， 使 用 CArechive 对 对 象 进行 该 换 作 
的 过 程 如 下 ; 
wa 二 ECPiGjasiNanmeDC::SerialipetCAnchive 上 而 
| 证 上 国富 m 抽 AS 在 起 
ii 3 gbjT stijss6b 半 -soiga my 技 珊 序 读 路 鉴 所 扫 作 


| 
ElsE AN 证 限 方 表 














{ 
ar << objI<<obj2<<obj3...<<obja; AiY 按 硕 序 写 入 数据 操作 


} 
COleServerDoc:Serializefarj;y 调用 ColeServerDac 类 实现 操作 符 重 载 


} 
MAT 文件 是 MATLAB 中 数据 输入 输出 的 基本 方法 。 在 Visualc++ 中 一 般 的 MAT 文件 读 
取 操 作为 : 
InrAtTay * 有 cad_IDX ATayf(M 太 IFile *pmateconst char *WariahleMName) 
{ IDXAmay xDUt 生 Erin 名 str 
Out=imatkjetVariahle(pmat wariableMName); 
str.Formatf" 读 取 变 量 ，%%s 错误 ,返回 ", VariableName); AH 定义 提示 信息 
六 out==(mxArmay NULLI AfxMessapeBoxfstm returnln0'; } 
Ietumm(outDAUAAAAAAAAAAAA 返 回 所 读 取 的 变量 
} 
在 VisualC++ 中 一 般 的 MAT 文 件 写 信 操作 为 ; 
void Write_tnxArmay(MATEile +pmaat, char *WariahieMNarme,IX 上 Tray #Wariable) 
{ CString str; 
sFFormat(“ 写 入 变量 ，%s 错误 ,返回 ", VariableName); 册 定 尽 提 示 信 息 
这 (matPutVariable(pmat,wariabieName,Variable)I=0){ 和 体 MiessageBoxtstm;] 
] 


2. VC 与 MAT 文件 示例 一 一 VCmati 

从 上 述 两 种 文件 格式 的 输入 输出 过 程 可 知 ， 只 要 把 mxArray 类 型 的 数据 Variable 与 obj 
对 应 起 来 ， 并 进行 相应 的 数据 类 型 转换 ， 就 可 以 实现 MAT 文件 与 Ciile 文件 问 转换 。 由 于 
VisualC++ 对 操作 符 << 和 >> 重 载 后 ，obj 对 象 可 以 是 由 Cobject 及 其 派生 类 对 和 钨 ， 其 数据 类 型 远 
比 mxAmay 对 象 复杂 。 因 此 ， 这 种 转换 方式 并 不 能 将 所 有 的 CRFile 文件 转换 为 MAT 文件 ,此 
外 ， 在 VisnalC++ 中 输入 输出 MAT 文件 ， 苦 仍 在 MATLAB 中 使 用 mex 实现 ， 则 与 第 7 章 用 
C 编号 MAT 程序 十 分 相似 ， 车 要 在 Wisualc++ 的 IDE 中 编译 ， 则 需 进 行 必要 的 环境 配置 。 本 
节 以 一 个 简单 的 例子 “VCmatI ”工程 来 说 明 简单 的 CEFile 文件 在 WisualC++ 中 转换 为 MAT 文 
件 的 实现 。 

(1) Visual C++ 工程 创建 

启动 Visual C++ 并 单 击 File 一 New， 打 开 Project 对 话 框 来 创建 各 种 VC 工程 ， 选 取 MEC 
Appwizard(exe)。 在 loctation 编辑 框 中 输入 欲 创建 工程 的 保存 路 径 ， 在 Project name 编辑 框 中 
输入 工程 名 如 “VCmatl ”， 单 击 OK 进入 下 一 步 工程 设置 对 话 框 ， 选 中 siagle document， 单 击 
Finish 完成 VCmatl 工程 创建 。 

(2 ) 添加 响应 表 数 

在 ReseurceView 中 打开 菜单 IDR_MAINFRAME, 技 图 9-5 和 表 9-1 添加 菜单 项 和 响应 函数 。 


囊 9-1 VCmat1 工程 菜单 项 属性 与 响应 函数 


响应 函数 
Yoid CVYCmatlDoc::DOrMennSavyeAsMATFilen) 
























ID_KMenu Save 上 skMATFEile 
了 putEemMATFile ID_kienn_ InPutFtomkAT 
IDp_ Men_ MATFileDanm 


















Yoid CYCmatlDoc::DnMenuInPutFromMAT) 
void CCYVCrmatlView::DOnMenuMATFileTDatam) 


Y0 刘 CVCnmaatl View::DnMenuCFileDataf) 


*210 





图 员 55 WEaal 工程 幕 和 单子 


131 环 起 配置 
划 间 Toalg 一 侣 Pions 一 DTeEIOTeES 
nelade 寿 les 二 贡生 KMLATLA 国 7 WEIOWIIEULE 
[Limary 有 ie: 请 杂 师 MATL 国 7 时 ERIEITNLIbWWWT RAR 和 ma 人 We 六 全 忆 人 
m 设置 缚 译 连 楼 选项 : 
昔 音 Project 一 SettinBg5 
ink 一 癌 bjactLibrary madules: 入 加 业 bmiatlib Tben 吉 .Lib 1ibotgslib 1ibrnmex-tib 
站 emerajl 一 RiCFGSC 人 OUid 二 证 GT ] 下 85 is FF 1 十 号 [ia 
和 二 WCGinai 中 源 辐 MAT 焉 性 读 写 撞 利 
e 在 “VCmatlDoch” 文 件 中 府 加 头 嘉 忻 与 mat 文件 读 写 挫 作 函数 申明 ， 
NAN S 让 件 
和 |E 胆 可 忆 “关上 ,上 ” 
前 二 过 二” 


TANNABEL 间作 证 写 操作 冰 禾 申 国 
publie; 

站 而 |， 

刘 间 所, 二 矶 ec 和 四 : 

硬 记 由 FE 曾 1 下 , 皇 直下。 西国- 上 目 : 


而 计谋 要 二 | 届 近 入 于 十 RATFie 二 放 合作 吕 ENaT Wariahle 辣 本 本 必 
年 膏 喇 H_ 机 天 真人 友 下 F 二 Fi ha 二 二 三 Tiae NETTELTEE 记 站 二 二 Wi 上 
sm 在 VCimariDoefyt 直 化 嘉 档 时 宁 站 化 数据 : 
丰 革 二 汪汪 人 人 WE 
[mail 
EL 
E 本 | 三 量 
让 起 二 个 司 由 天 申 于 [ml 用 NA 一 桂 疏 诅 
TEST 
站 -起 加 = 有 二 昌 iblee [本 | 从 = [eaaiil+ 上 证 成 轨 | 剧 = 本 二 sa 让 | 可 下 三 内 监 骨 
有 Er 二 人 ndjasDsjensj 二 je 起 二 [加 [fb 天 计生 1 革 


本 site niiitial 罗 罗 ii 这 证 丁 癌 
机 丰 了 ET 让 | 号 二 _ 天 


= 演 号 











Im_ 二 =IIXCTIEateDeonbleMAJIXTLiIXREATLh 
foerd=0:i<n3i++)*rmxGetPrm 点)+iD=Cc 各 [让 : 
m_AB=ImxCxreatePDeoubleMATrixfm amxREATLy》， 
fori=0:i<mii++itiord=0:j<njj++mxGetPrtmn_ 和 BTHsm+i)=c_ 二 百人 iT 站] 
| 


当然 ， 这 些 数据 也 可 从 其 他 函数 中 生成 ， 或 从 文件 中 读 入 。 
se 在 “VCmat1Doc.cpp” 文 件 中 实现 MAT 文件 读 写 操作 。 
将 数据 写 入 MAT 文件 代码 ; 


* 212。 


void CVCmatlPocDOnMenngSaveAsMATEFile 

{ 

MATFile *pmat; CStrinE str; 

CEileDialog in(FEALSE.NULLNULLOFN_HIDEREADONELY 1OFN_OVERYWRITEPROMET, 
"MATLAB Data Filer*.mabl*mat"NULL》， 

这 iDPoeModalO==IDOKIHSr= 这 .GetPathNamef]; 

这 (pmat=matOpen(stt ww)==(MATFile NULLIAAW 以 写 入 方式 打开 MAT 文件 

{ 生 区 MessageBoxf Cant open OH MATEile" ;exittO);] 

Write mxArrayfpmat"m xn XI 调用 写 入 操作 函数 ， 合 次 写 入 数据 

Write mxATTay(pmat mm 内 "Im 页 ): 

rite_ImxATTayfprmat ml 和 及 "mm 内 悍 ) 

IatClose(pmat; AAA 关闭 mat 文件 

】 


} 
WA 从 MAT 文件 读 取 数据 代码 ， 


void CVCrmat1Poc::DnaMenaInPutErortwMATO) 

{ 

MATFue +pmat; 和 String str; 

CFileDialog intTRUE,NULLNULLIOFN_HIDEREADONLY 1OFN_OVERWRITEPROMPT 
"MATLAB Data File(+.mabl#.mat ,NULILy;， 

访 i 记 DoModal0==-IDOK)fsu=in.GetpathName0)， 

这 (pmat=matOpengstrr))==(MATFile *JjNGLLJ AU 以 读 取 方 式 打开 MAT 广 件 

{A 人 MessapgeBoxC'Cantopen Duat MATFile")'exitf-171] 

Read_ImxArrayfpmab"m xD 调用 读 取 操作 函 煞 ， 恢 次 读 取 数据 

Read_mxAtrrayfpimat,"m 和 站; 

Read_mxArray(Prinat,"m 和 召 " 

matClosetppaab;AAAAAAAAAAA 关 闭 mat 立 件 

) 


] 
JIAAAAAAAAN 读 取 操作 函数 


IDATay *CVCmatlDoc::Read_ mxAray(MATFile *ptmmatconst char #WariableMName) 
[ mxArmay *#out CString str; 

ont=tmatCietyariable(pmat. VariableName); 

srFormat" 读 取 变 量 ，%s 错误 ,返回 ", VariableName), 1 定义 提示 信息 
iout==(mxXArray #JNULLJ{ AfMessageBoxfstrm; return 0; } 
rehumfoutAAAHHAAAAAN 返 回 所 读 取 的 变量 

} 

NA 于 X 撮 作 轴 数 

Yoid CVCmatiDoc:Write mxaAtrray(MATFile *pmat char * WariahleName,mxArmray *WVariable) 
{ CString str; 

strFormat(" 写 入 变量 ，%s 错误 ,返回 ", VariableName]; /定义 提示 信息 

这 (matPutVariable(pmatWwariabljeName,Wariable)I-Oi{AfrMessageHBoxtstnD',] 

] 





se 在 VCmatiView 窗口 中 显示 从 MAT 文件 中 读 取 的 数据 : 


VoidCvVCmatlView'::DnMenuMATFileDatat 

{f ImvalidatefTRUE)JAAAHAAAAAAAAAAAA 重 绘 密 口 

CVCmatlDoc* pDoc=GietDocnmentO:A 取 得 Doc 文档 句柄 
ASSERT_ VALID(PDoc); 


CPaintDC de(this]AHAAAAAAH 取 得 上 下 文 设 备 
dc.SetBKModefTRANSPARBENTY， 1 设置 字 性 
de.SetTextColorRGBID,155,1357 

LOGFONT logtont: 

miemaset[ 生 ]ogfont,0.sizeeflogftonbJ; 

logfont.1fWeight=20: 

logfontlfHetight=20; 

lstrcpy0logfontliFaceName,' 夺 性 " 

(Font HowFont， 

TowFontCreateFontmdirect( 底 logftonty 
dc.SelectDbject 交 nowFonty 
1 将 mat 文件 中 取得 的 数据 输出 到 view 窗口 中 

人 String str; douhble *piiy int ij; 

Pii=mxGetPrPDoc->tn_ xj; 
strFormat "Inputm xx : 97.2f,*pi) dc.TextOunt(10,10.stD， 





strFormat( Inpnt mm 和: "dce.TIextOuft10,10+logfont.IEIeightstr): 

Fii=mxGetPrtpDoc->m_ 入 》， 

foeri=0:i<pPDoc->n:i++) 

{strFormat(” 奴 了 .2 全 .二 (Pii+i) 
dc.TextOut(1o0ri*39logfont.IfWweight10+logtfontIfHeighbstnm; 

} 


SttFotmat( "Thpnt i 内 日 : ,TextOut(iO,10+2xlogfont1fHeightstr)， 
Pi=imxtetbrpDoc->m 上 和 HB); 
fori=0iicpDoc->m:i++)forj=0:j<pDoc->n'j++)》 
fstrFormatf”57.2f,*(Pii+j#pDoc->m+i)， 
上 全 .TextOut[100+j*3tlogfontlfweight,10+3*flogfontlftHeight+i*xlogfontlfHeightstr; 
] 
] 


s 在 VC 串 行 化 读 写 数据 操作 ; 


void CYVCmatlDoc::SerializefCArchive 友 am 
fint ij; 

让 (arJIsStonng 人 ) 

{ 

ae_ Xi 

torli=0ii<n'i++)arz>e 太 [ 刘 ， 
fori=0:i<m'i++)tiorg=0j<aij++)arz>c 和 BID 
] 

else 

{ 

BT<<C 态 ; 

forfi=0;i<a;i++)ark<<c_ 入 日 ]; 


“了 13。 


Fa 二 i 直 [= 人 村 二 村 让 JesE -此 卫 下 轩 让 
| 
as 在 VEmatlWew 性 日 中 显示 再 行 化 读 取 的 数据 ， 
让 这 尼 WTWEW2DOERenEC 和 过半 alaly 
| 
TaiidiaerTRETRNNANNAY 三 的 调 日 
CCmaaiDuecs poesGeiEocianeiLRNNY 了 得 Dee 立 悄 柯 本 
起 王 号 用 民 T 得 ALTEMEERDe 于 


EEC el dh 相 上 下 支 齐 基 
由 SI 民 ERHEeTTR ANSPA 有 ENTK 避 NF 设 置 放 体 
相生 efTieaiEGHn[ 代 让 加 [55 入 
LOGFEGNTT 全 本 站 二 
二 导语 贡 有 让 相遇 站: 
EnELiWWEhis3L 
jetl 人 二 时 4 
LirepydlogfenLifFaceNaane 蓝 节 ' 
本 已 和 襄 柄 民 丰 HS 
而 各 布下 着 -TDSFGETEHE 计 是 | 二 和 人 
人 SECIjaEI 匡 WPFoat; 
HR EGEa 玄 杆 中国 得 的 动 要 办 山 到 葬 窗口 中 
(CS 生计 
如 民有 辣 证 记 克 二 天 了 了 六 加 GE 下 半 如 天 站 大 这 1 丰 1 口 ,5 洒 玫 


FarmatfsinmatE 由: 二 -WiT 癌 和 二 加 本 拉 人 全 二 让 Nai 
人 EDGE-| 二 让 

[EEIPnmmatl” 台 13p3oecse 1 

iD TCM 访 丁 有 EmLITWEiEE +IGEotlnHeighLst 

| 


全 ET 二 [和 二 志 _ 珊 各 -有 二 入 WU 和 下痢 二 后 本 | 本 本 村 he 末 才 

二 了 EEC 全 全) 

| Poemmaalfn 时 了 3 六 UP-ae 二 四 站 | 全 四 

引 .天 四 大王 柯 总 和 1 和 二 3 让 生 bs 
| 

| 


在 Wisail C++ 中 蝙 译 投 行 WEaaatl 工程 ， 从 MAT 这 到 数据 在 Wiew 窗口 中 显示 结果 如 图 
弛 所 示 ， 由 囊 行 化 计 取 数据 在 View 窗口 中 显示 结果 如 图 97 所 示 。 从 中 可 知 ，WCmatl 工程 
宕 现 了 MAT 充 件 的 该 写 折 作 。 





嫩 T 世 需 5 | 
出 站 画 ， 十 二 ”的 1 十 闻 if | 情 醒 
上 1 轩 目下 让 T 藤 击 司 au 相 曾 时 ” 加 本本- 评 拓 
四 机 创作 本 中博 呈 有 二， 剧 轴 相通 到 师 


侠 站 和 野山 AT 于 本 青 据 在 尿 计 让 窗 口中 显示 二 章 
至 浊 ] 中 二 





IE 所 1 司 ， 提 而 有 而 和 咯 ”看 十 ) 作 而 了 而 让 的 用 而 


[丁酉 『T 面 4 且 寺 
定 邓 咒 了 7 有 更 4 
的 有 
且 是 亲 。 见 毅 1 
昌 局 队 工人 


转 志 7 出生 化 读 取 醒 据 在 WE 有 窗口 屯 怀 未 晤 时 


9.2 MCC 


MEC 是 MATLAB 中 妊 过 优化 的 编 详 器 。 性 用 MGC， 用 户 可 特 MATLAB 卜 学 库 ， 辆 形 
库 和 有 界 面 的 MATLAE 程序 转化 上 部 衬 于 MATLAB 的 丰 XE 应 用 程序 和 DLL 动 考 居 援 上 库 。 由 
癌 WMATLAE 建 站 YYC 独 让 应 用 可 序 的 赤 现 下 对 为 ; 

11T7 妨 写 再 充 忻 

【2) 枉 塘 WIATLAB 输 译 肯 ， 状 使 用 mee 轴 详 曾 误 伸 : 

【3 创建 WisalC++ 工 程 ; 

1 4) 恒 阳 由 mee 扎 译 生成 的 ep 辫 件 ， 


9.2.1 准备 工作 


1 而 6 编译 放 琐 民 醒 

MATLABT7 版 本 对 mee 编译 设置 有 较 太 改动 ， 北 其 是 将 下 充 件 广 译 为 “,h ”和 “8” 文件 
及 相应 的 动 柱 链接 库 时 ，7 必 以 前 版 本 主要 恒 用 ， 

Smice 十 一 上 L 尼 pP 人 email 1 斌 DELTHE2 
而 在 MATLABT 版 本 中 ， 主 要 全 用， 
SEE = 四 hinet 的 民 让 EN 让 计 才 站 让 人 二 过。 = 

所 生成 的 嘉 件 也 有 一 定 萤 别 ，MATLAB 了 版 本 中 一 般 可 生成 站 个 文件 : 

filannmah 一 一 放权 于 立 件 的 共立 件 。 

全 enameEe 一 一 库 包 压 女 忻 的 实现 部 分 ， 

村 |emame GE_EGmPOGENEL ii 让 一 一 扣 交 化 喜人 忻 ， 

六 ename.expars 一 一 二 下 库 的 导出 列表 。 

有 atatmelb 一 一 生 城 的 陈 辫 件 ， 

而 Jetumeiidl 一 一 生成 的 动 雯 犯 接 库 - 

癌 Enrme,exp 一 一 386 村 式 质 行 程序 ， 

本 laimecet 一 一 包 革 玄 件 信息 ， 

呈 ，WisUal 人 ++ 环 境 配 置 方法 一 

Wisual C++ 环境 配置 最 求 要 的 是 伺 音 室 件 路 乱 和 链接 库 受 兹 路 烃 设 芋 。 此 着 ， 志 于 阴户 而 
文件 平 同 ， 所 生成 的 MATLAB 组 件 运 行 时 5MCR] 可 能 有 不合 ， 相 应 的 WC 工程 中 设置 也 会 
有 一 定 的 养 异 。 国 此 ， 用 户 在 设 章 WC 环 丧 配 贤 时 ， 应 檀 索 需 种 加 的 包 言 立 件 路 才 Linelude 
二 reglorte il， 如 接 库 路 称 【上 niEF Hb 出 Teclonagy 和 WATL 和 下- 检 件 运行 到 《CIWMCRY。 本 索 方 


到 二 二 而 











法 就 是 在 mec 编译 选项 中 涨 加 “-v” 选 项 。 下 面 以 “mece2” 工 程 为 例 进 行 国 述 。 
0%.2.2 ”建立 独立 应 用 程序 示例 
1， 编 写 mm 立 件 “test.m” 


fanction [一 testxX:y) 

8 一 XTT7; 

一 .sy 

SUbPplot[1,2,13 沪 1otXa7; xlabelf 其 yy18belf XXXHT 和 
SubPlot[] ,2,2XPlottx, 世 六 XHabel( ylabel( 其 .二 ) 


2. 配 秆 MATLAB 编译 器 ， 并 使 用 带 “-v” 选 项 的 mcc 命令 编译 庙 文件 “testm” 


(1 ) 用“mbuild -setup” 将 MATLAB 编译 器 设置 为 VisualC++6.0 


>> Imbuild -Setup 

Please choose your compjler for huilding standalone MATLAB applications: 
Wounld you like mbuild to locate installed compilers [yljn2 7 

Select a coimbpiler 

[Lec C veTsinon 24 各 CAMATLABRBYASySNCC 

[2 Microsof VisualC7C+H Version 帮 让 CNMicrosoft VisualStudio 

加] None 

Compiler' 2 

站 ease vernify youUr choices: 

Coimpiler Microso 人 WijsualC:++ 中 0 

Location': 和 AMficrosof Wisualstu 中 o 

上 ATe these Correct 所 [ 允 ] 站 六 了 

Waming: Mboaild reqnires 四 a 志 e Microsoft VisealC++ 避 

directories VC98” and Comineon” be located wittin he same Parent 由 rectory-. 
(EXhpected ro fitng a Winectory named "Commaonm" 记 由 e directoIy CAMicrosoft WisualStudio') 


TI tuUpdate cptions 全 e: CADOocuments and Settings\AdministratorApplication DataVMAThWorksv 


MATLABAR14Aeompopts,bat 
From template: CAMAILAB7TRBTTWIN32umbuildoptswmsve60cormnpP,bat 
Done ，. ， - 

--> CAMMVMATILAB7binvwin32miwregsvrCMATLARB7binwin32mweotnutildll" 
DllIRegisterServer in CAWMATL ABRBbinwwin32Wmwcomutildll succeeded 
-CNMAILABThinvwin32mwTegsvTCAMATLABAbinwin32mwcomimgtdj]" 
DHRegisteTServer ia CAMMATLABYbinvwin32vmwcormmgt.dll succeeded 


至 此 ， 完 成 MATLAB 编译 器 设置 。 
(2) 以 带 “V” 选项 的 mcc 命 售 编译 四 京 件 “testm? 
> mcc -了 csharedl 和 bibtest testim 一 V 


其 中 ， 操 作 和 参数-Bcesharedlib 是 -个 邬 定 的 操作 ， 其 等 效 指令 为 - 色 lib:<libaame>-T 
ling'lib.-v 选项 显示 编译 信息 .在 众多 的 编译 信息 中 , 可 确定 Visual C++ 包含 文件 路 径 (include 


tirectofies) 和 链接 库 路 径 《〈linker library directories) 配置 。 
(3) 包 售 文件 路 径 (includqe directories ) 


包含 文件 路 径 是 以 “C1” 开头 且 提示 符 为 "的 路 径 ， 本 例 中 以 "Cl 开头 有 两 行 ， 且 提示 


符 为 "的 路 径 均 一 致 
-ICAMATILAB7exterrinclude -ICMATLAB7simulinkinclude -O2 -DNDEBUG 


“2I6， 


CT 并 加 TEXTTAINEGHGdE -TCMLATIL 太 攻 YEEnnaliakvianelude 一 2 -DNDEBU 
其 中 ， ICAMATLADTsimatinkWinelude DOz-DNDEBUG 为 DNDEBUG 路 竺 ， 赶 需 在 WEC 
工程 中 启 如 ， 坝 VC 中 高 下 加 的 包 洁 文件 路 径 【inpelude 由 reetories) 为 ， 
全 全 本 TENEIUde 
【二 | 猴 接 库 路 禄 【linkgerHknary 直 reetrriegh 
链接 库 路 径 是 以 =link" 肯 提示 符 为 VLIBPATH: 的 路 径 ， 本 例 中 为 : 
j 卫 EAIHEYEAWL 旋 本 [起 辕 了 融和 二 让 所 让 WerrT 了 Er 让 DRWwE 丰 Ci 
破 YE 工程 中 项 座 加 的 链接 血路 入 为 ， 
局 RMT 语 入 本 TeIEETDAUbWin3ZUTICTOSGDNELWWAE 丰 
15] MATLAB 焊 忻 汪 行 对 1LMCRJ 
MATLAB 组 件 运行 时 【MECR? 是 以 "inka 旧 提示 符 为 "pologo" 的 文件 ， 本 例 中 为 ; 
计 ETTt ti 和 | 寺 b 本 时 :1ib 
汪 ， 创 建 VisaulC++ 工 程 mec2 
运行 Waij C++ 间 单 击 File 一 New， 打 开 Projeet 对 话 框 来 创建 各 种 WC 工程 ， 选 点 MIFC 
Appwizardfexe}《【 图 9.8， 其 他 程序 基本 相同 )。 在 loctation 编辑 框 中 输入 中 创建 工程 的 避 存 婚 
权 ， 在 ojeet name 编辑 框 中 办 大 工程 名 如 "mecz"， 单 而 “OK” 进入 下 一 步 工 程 设 置 对 话 
框 ， 霆 中 Dailog Bised， 单 击 Finish 完成 meez 工程 创建 。 





4、WVisualC++ 环 境 配 置 

411 设 定 其 亦 忻 夺 库 文件 四 径 

前 单 Teals 一 Options 一 Dirneetaries 

[nelade ee: 宝 加 号 MLATLABT7MEXIErnminelude 

Likrary 人 ee 座 抽 晤 ATL 玉昌 7 和 Iranalnde 

1 王 ) 设置 议 译 连接 选项 

菜单 Project 一 Serlings 

Link 一 总 bjeetLibmam modules 语 加 三 Elaeint Hb 且 DiLTity 
本 | 一 志和 全 Ed 人 | 二 RSS LISAIRC 诡计 基 人 Limiry 


本 吉 证 几 证 





5。、 蝙 写 mccee 工程 对 话 杠 

甸 建 如 团 末 8 所 示 meea 工程 对 话 杠 。 对 话 框 控件 属性 如 表 2 所 示 。 利 用 ClassWizard 
站 别 贞 IDC EDIT _Xydim 护 辑 眶 ，IDC_LIST_ Out 和 IDC_LIST_Du 列表 控件 这 加 变量 
wa 其 和 出国 9 REE2_Lia” 和 “mWMeecl_Liat， 为 IDC_BUTTON_Meel 扶 钥 斌 间 辆 应 力 
融 “OnBUTTONNWMeeliy 






ER RE = 一 -一 


图 呈 .9 侣 达 meez 工程 对 语 
甫 92 moc2 对 话 框 控件 图 性 
医 了 7T 更 国 0 


和 ESEDTT Xi 预演 用户 钴 六 各 林 站 问 量 的 除 政 


ITTTTTRTETTIEOTTTI 






6， 渗 灿 mec 编译 亦 件 
将 mee 访 详 “iestmn” 生成 的 “1ibiesth "Hibaeatiib ww “iibtestd 由 ”和 “Libtestetf” 未 站 总 
件 复 制 诗 mec2 工程 目录 中 。 并 用 project-add im projecrFiles 和 将 “tibtesth” 加 入 mec2 工程 
中 。 在 对 恬 杠 程序 垃 件 “mec2DlEH” 中 语 加 上 训 件 “libieath” 和 “metimerh 
打开 “tibtesth”， 有 从 程序 清音 中 可 知 ，libteath 文件 中 主要 声 喇 程序 运行 时 所 需 的 楚 始 化 
函 数 Hibiesilnitialize0j， 程 序 疼 目 时 libaesrTerminate0) 画 数 ， 以 及 对 应 em 玄 件 中 mifTest0 博 
燥 。 其 中 miriest0) 驮 数 为 ;输出 春 豆 二 areoui 辆 山大 数 列表 KATE ETTERATTEYY 
呈 别 对 应 Iesatm 文 梓 中 的 左手 全 大 数 ;输入 套数 刊 表 ; ImxArray* mixArmiy*y ,分别 对 应 (csLm 
辫 件 申 的 市 插 伍 奢 监 。 国 此 ， 昌 而 E 请 译 巾 正面 支 件 转化 入 己 程 岩 ， 基 数据 类 名 是 站 RAYy 
费 对 粤 ， 
JR itesth 立 性 请 音 
到 Hide 是 二 二 让 
deFne He 1 
TEEiedl EPEIIS 晤 话 ideiaeaIclmeF_t) 攻 吕 Befinedt_linaus 
站 市 FE 量 击 昌 1 和 ES ET 二 
总 亩 所 人 
和 加 本 je mclmeFlis 
衣 上 天 和 | 
berm | 
Und 这 


到 人 汪 


extemn bocl libtestInitializeWit 由 Handlers(mclDutputHandlerFen eror_handler， 


melDutputHandlerFcn print_handleD 


extetm bool HibtestInijtializefvoid AAA 初始 化 函数 
exterm void HibtestTermjnateftvoid， AAA 终止 丽 数 


extem void mlxTesttint nlhs, mxAray *plhs[], int nrhs, mxArray *prhsD): 默 认 味 数 


exXteIn void mlfrestfint nargout IIKAITay 由 # 8 IDXAFTaYy 于 和 


,IDXATray# XI0XATrays TAN 对 克 于 testom 中 国 数 


殷 相 ef _cplusplus 
} 

#endif 

#Endif 


7 初始 化 进程 


在 BOOL CMecc2Dlg:OnImnitDialogO 函 数 中 添加 以 下 代码 ， 以 便 在 进行 对 话 框 祈 始 化 后 ， 


进行 初始 化 libtest.dl 进程 ， 代 人 笨 置 于 对 话 框 初 始 化 与 进程 返回 之 间 。 





这 !melInitializeApplcationNULL,O) ) 

{ 上 区 MiessageBoxf "Could not initiatize the application, 7) exit[17 ]} 
这 flibtestInitializet) 
{ 生 全 MIessageBoxf Contd not initialize the 1ibtary ); exit(1h } 


8 调用 mlfTest() 函 数 
在 void CMec2Dlg::OnBUTTONMec10 图 数 中 添加 以 下 代码 ， 实 现 对 testm 调用 。 


void CMec2Dlg:DIOBUTIDNMeelDO 

{ 

CString Strlstr2; 

TIXArmay *inl, *in2; AN 输入 参数 ， 分 别 对 应 testm 中 右手 侧 参 数 xy 

mxArmay *outl = NULL AH 输出 参数 ， 分 别 对 应 testm 中 右手 侧 参 数 ab 
mArray *out2 = NULL; 

double *qdata: 

int in， 

UpdateData(TRUE); 0=m_XYdimyW 将 编辑 框 数据 传送 机 制 设 为 从 编辑 杠 到 变量 
data=new dotble[mn]; 

forfi=0;i<n:i++kiata[i]=(doub 了 Ji 

这 1] = mxCreateDoubleMATrix[l1,nimxREAELY AAAimxaArray 对 象 分 配 地 址 

in2 = ImXCreateDoubleMATrxfl1nImXREAL3 

memepytmxDetPrtinl), data, nxsizeoftdeubley; 1 将 C 数据 类 型 转换 为 mxArray 数据 
InemcpytmxGetPnin2j data, nysizeofi[touhlej]; 

inlfTest[2. 全 out1 ,全 ont2.inl1,in2]:AAN 调 用 libtesth 中 函数 ， 对 应 于 testn 


for0=0D:i<=0'i+ 十 )f 
strl.Fonmmatf ”9 名 .2 58.2f1 二 582 “， 
中 ftEISCetPrCin + 让 ,本 CDXGetPrin2)HihsCmnxGetPrOUtL +) 
Str2.Formatf 08. 2 有 = 5 和 对 “， 
fimnxGetPrinl)+HiagmnxGetPrtin2)+HiDsfnxGetPrrout2]+iy 
Im_Mccl_List AddStringtstrl); 六 用 列表 控件 将 计算 结果 显示 出 来 
m_ Mecec2 .List AddStringtstr2)i 
ImxDestroyArmayfoutlji mxDestroyArmaytinly 1 内 存 释 放 
ImxDestroyArray(outai InXDestroyAtray(inaj) 
delete datai 
] 


全 | 号 。 


纺 ， 进 程 线 止 与 资源 释 克 
利用 尼 昌 到 色 ia 海 对 话 框 钙 炳 遇 刘 区 MeceaDIgOnDestrtwy 人 T 函 灼 ， 间 证 加 以 下 人 人 凤 ， 
而 潭 尼 MseaDHENOnDeainoyw) 
ON 
证 缉 Tai 天 
Esc|Terrglnale 二 Pear 
| 


10。 编 译 运 行 
在 本 由 上 篇 译 运 行 后 千 果 如 图 时 10 和 图 汞 .11 所 示 。 





图 邓 | 人 Meca 运 和 伍 时 时 


和 
肝 豆 二 而 本 时 本 本 全 呈 
本 二 导 后 二 吾 让 证 昌 避 日 吕 | 


1 
和 
.四 
醒 证 
[让 
[ 
醉 站 
郑 + 
二 + 
站 十 
钱 让 


大 -区 吕 下 恒 西 再 天 村 师 王 





11。 独立 应 用 程序 党 

首先 ， 糙 MATLAB6pSexiemiiibwwin32WUMCRInstallerexe 复制 划 目 标 计算 机 ， 并 在 目标 机 
各 上 运行， 解压 时 注意 要 保持 解压 后 的 路 径 与 第 一 台 计 算 机 上 MATLAB 的 安 缆 路 径 一 至, 安 
更 好 MCR 之 后 ， 和 将 <mer_roofxuruntimeiwin32 如 入 到 系统 的 环境 变量 path 中 去 ， 
0 将 工程 立 件 的 可 执行 程序 fexelj， 共 享 库 [DLL)， 失 享 库 对 应 的 ,etf 文件 复制 到 目标 


sa 二 了 向 二 


9.3 MATconm 与 Add-in 


MATeam 是 MATwankes 公司 排 训 的 第 一 个 由 人 ATLAB 到 CH 的 罗 译 开发 件 平 茸 ， 批 
最 后 项 林 为 MATEoG 站， 扶 电 感 调 坛 驳 详 奈 境 贞 MIDEWA。 通 过 网 ATeom 连接 MATLAE 而 
哀 件 有 了 以 下 三 入 方 洗 ， 

[ 弃 过 简单 性 置 后 ， 出 WIDEVA 糙 盏 源 误 件 转 抗 为 CAE; 炉 后 向 加 到 MSWC 工程 中 ， 

f27 由 IDEVA 直 搜 生 成 直 XE 误 件 ， 贱 后 在 WC 中 通过 Sell 调用 。 这 种 方法 简单 方便 ， 
但 运行 时 出 再 一 个 控制 台 和 窗口 ， 而 且 由 于 VC 和 MATLAB 之 癌 不 能 交互 ， 通 用 性 差 ， 仅 适 赎 
于 WEC 申 调 周 MATLAB 弯 现 图 形 显 示 的 场 台 ， 

【3 通过 Visual MATeom 工具 条 ， 使 用 Add-in， 这 种 方法 提供 了 一 个 MATLAB 和 VC 
直接 粳 成 的 进 短 ， 且 可 快速 提成 四 广 件 到 WEC 工程 中 创建 独立 的 CC 应 用 星 序 ， 它 ME 其 
DLL， 在 调试 过 程 中 可 以 查看 皇 阵 变量 的 值 ， 可 直 扶 修改 画 源 充 件 而 赴 是 俱 避 生成 的 EME4+ 
记性 。 国 此 ， 替 节 和 主要 办 申 Add-in 市 法 的 实现 ， 


9.3.1 WMATeom 安装 与 生成 Visual MATeom 工具 条 


采用 而 aualMATeom 方式 , 在 腹 离 MATLAB 环 壤 条 件 下 宣 码 WC++ 对 问 支 件 调用 ,将 去 
大 方便 用 户 应 用 程序 的 开发 。 其 实现 过 程 是 首先 安装 WAT6n 45 诺 用 程序 , 焕 后 在 匠 吕 可 C++ 
申请 置 MATEem 疯 用 环境 ， 间 生成 Visual WMATeeni 工具 对。 

[1 在 安装 MATeaia 4 后， 在 第 一 恢 运 行 时 ，WMATcaan 4.5 自动 玫 乾 VC 编 翌 器 并 提示 
用 卢 是 香客 装 【图 由 二 )， 用户 回答 做 受 安 半 后 ， 提 示 是 否 安 装 有 MAILAB (图 %-13》， 回答 
者 旧 后 ，MATeatm 站 邱 柱 杜 发 生 错 出 ， 原 因 是 在 晤 MATLAB7 中 出 让 中 投 有 相 庶 的 目录 ， 这 时 ， 
用 声 可 以 在 晤 ATLABT 时 让 重 目录 下 手动 建 喜 WalkaaMATLABIREEenil 目录 ， 再 重新 局 动 
MATEGE 二 晤 可 。MATIEotm 4 安装 成 动 司 ， 出 现 图 电 权 所 孙 硝 县 框 ， 上 其实 是 否 安藤 有 
MATLAB 对 MATeom 认 有 什 笃 时 听 ， 你 完全 可 以 进 择 没有 宏昌 WMATLAB， 仍 名 可 以 蝙 霸 夫 
事 数 立 件 。 需 更 MIATLABWaaihon 下 的 友 件 时 ， 用 addpathi 浴 灿 路 径 或 者 复 而 到 当前 目录 下 
就 可 以 了 - 





图 孕 习 ”第 一 遍 适 行 网 ATeomds 规 示 一 图 尼 生 得 一 这 通行 MATEom 4 可 地 二 
【1 复制 哺 MATeormlSiVbinvwusertypedar 妆 件 “时 MATeomas 吕 指 MAIoa 的 安装 路 径 ? 
吕 | 张 WCG 生疏 是 计 国有 上 哆 呈 旺 |e4+ 呈 WEC 的 安 旧 略 至 ) 下 ， 
34 运行 Viaaal CH， 并 从 节 单 条 中 移 择 Tools 一 Customjze 一 Add-ins and ae Filas， 还 
择 Browsp， 改 变 训 件 类 型 为 Add-inal dj ， 选 定 站 MATeomdS 时 地 imweide dll 详 件 ， 确 定 。 
[4) 在 WisualC++ 的 开发 环境 中 可 以 看 到 一 个 如 图 朱 15 所 示 的 Wisuaal MATeom 工具 索 ， 
村 啊 安 装 威 功 ， 可 以 开始 MATeom 广 件 编写 与 调用 : 


二 章 宁 | 十 
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二 可 忆 


| 2 | 


图 末 1 网 放 Teamd 要 谋划 戌 动 后 的 出 县 想 国 评 1。 师 天 二 LATEe 工具 芝 
9%.3.2 下 文件 转 搞 示例 一 一 Testl 
来 节 以 一 让 线性 方程 组 的 求解 过 程 坟 例 ， 亨 昭通 过 MATeom 实现 VC 对 MATLAB 画 立 
件 的 英才。 
tl 蝙 写 MATLAB 云 件 "LineEqm”， 用 于 求解 线性 方程 组 4X= 且 的 解 ， 
ATLAB 在 变 件 情 单 : 
请 量 lowe inesrEquaaitiarty 下 =* 基 = 和 
而 tlmt 其 去 岂 e 王 吕 1 是 
X= AI 
fy 剧 建 WE 工程 Test 
运行 Visual Cr 并 单 击 Fle 一 New, 打开 Piojeet 对 话 框 来 创建 各 种 VC 工程 , 这 里 以 较为 
向 单 的 四 制 台 程 序 为 例 ， 过 取 Wina2 Console Apfplication [图 引 1， 其 他 程序 基 李 相同 )。 在 
Iactation 编 咎 框 中 输 六 向 创 建 工程 的 避 存 路 径 , 在 Projeet name 坊 辑 杠 中 输入 工程 名 如 "Testl 
曹 击 “OK” 进入 下 一 步 工程 设置 对 话 模 ， 选 取 “ 太 Singls apptication'， 单 击 “Finith” 完 成 工 
程 倒 建 工作 。 


图 东 1 丰 草 砷 Tesil 工程 

(3) 转 病 四 文件 “LineEqmy”。 

音 击 Visual MATeom 工具 栏 上 的 “m++” 图 标 ， 选 择 保 存 过 的 MATLAB 文件 LineEq mi 
进行 屿 化 。 如 果 看 到 的 转化 信息 提示 角 有 避 误 就 可 以 观 禁 到 此 时 在 FileView 标 得 中 志 了 
而 < 站 eg 全 ieEETeated 全 Gin 天 -人 es MATEXelibs 和 | External Dependeneies 四 文件 夷 [图 外 17]。 
在 相应 的 文件 垃 下 增加 本 LineEq mm，LineEqcpp、v4501v Hb。LineEqb 和 malibb 等 文件 表 


二 性 补 本 直 


醒 让 亦 件 转换 大 动 ， 否 网 ， 囊 明 上 误 件 市 存 在 错误 ， 可 到 
击 而 -加 1E 吉 E 巨 二 进行 修改 ， 再 重新 转化 直到 没有 错误 报 
华为 二。 

LineEd 经 转换 后 所 生成 的 LineEqh 和 和 | LineBEqicpp 去 
件 ， 闸 出 进行 了 LineEByg 函 访 了 以 而 京 尾 洛 广 画 娄 名， 地 设 
十 户 布 履 改 此 困 数 铬 ， 若 必须 履 改 时 ， 更 福 写 函数 名 在 相 
应 充 件 中 的 生 一 1 虽 本 蚊 体 的 是 让 。 打 开 LineEqh， 从 程 
序 请 单 中 可 生 LineEd 函 归 有 两 个 类 数 ， 分 别克 矶 和 百 ， 与 
LineEq 站立 仁 中 的 输 六 大 数 A 和 日 相对 庙 ， 其 据 交 副 为 
RTM 灼 据 村 型 是 MATHioat 公司 利用 MATEem 技术 
开发 的 德 阵 数学 库 matnixelths 申 定 沁 的 基本 上 据 类 副 ， 是 
一 种 观 精度 的 matdg 赂 质 ， 它 可 以 是 复数 垂 阵 ， 实 监 筷 际 ， 
睫 蔚 和 拭 阵 越 至 屿 摊 和 矩阵 ;LineEq 函数 返回 值 亿 为 Mm 业 型 ， 





人 


JRNNNDRANRNAAWON 二 加 aaESE 情 音 图 尔 i7 LineEq 本 玄 件 转 拘 师 果 


析 fpdef_LineEq 
fdefine _LineExl 


了 LisEEqL 二 fr 机 二 


和 ii 用 _LinaEq 及 
AAA 站 雪 


打开 LineEq.cpp, 从 程序 请 单 中 可 知 ,LineEq.cpp 包括 两 部 分 ! 头 广 件 中 包 会 了 maxlib,h 
hdrstop 和 "LinaEq.h* 三 趟 立 件 。 其 中 “mattibh” 将 MATeom 数学 库 包 含 至 文件 中 ， 在 使 用 此 


得 音 语 铝 前 ， 绒 撤 京 3 中 诅 读 在 作品 可 导 ++ 申 设置 WMATeom 调用 环境 ! 
PitEgmnit hlrsttp 


"LineEqh 作用 与 一 般 的 C++ 程序 相同 ， 是 函数 定 尽 基文 件 ， 为 程序 提供 转换 后 C++ 代码 


申 全 用 的 赣 据 类 型 ， 冰 数 原 型 及 常量 等 信息 。 
RAW LinaEa:epp 请 香 
NA 于 京 件 
夫 inejiade nrmatlih ls 
和 ro 
本 曾 E 罗 刁 EineEg 
TAR LineE9 十 是 体 
网 辣 TEAM 成 TD 直 于 | 
le 忆 训 LEOPE 
贞 RETESTEI 上 让 国 -EEikiiriEel 四 ”于 
上 TIE[ 生 六 


者 汪 百世 下 “二 AT 入 国生 让 站 和 ET 村 -本 

SEE _ ea 

者 国 南 昔日 “ 计 5 丰 开 寺 起 辐 直下 Ci 有 者 
EEC 

二 6 可-_EEE 厨 =EHF 臣 通 _W|; 证 让 而 三 里 通 AI TIRin_Vijlsz,U 

下 攻 加 _SeH= 

上 5 和 可 同调 夺 0 本 [二 全 二 请 亲本 [天 到 | 人 二 机 训 亲 订 [三 让 全 末节 可 训 |_ 基 下 二 | 全 


汪汪 











nargout_3Set=0; 
1 tramslated Code 


#ine2"dJMAILAB_CIMATcormylineegm" 
_ 基 =Imldvide( 和 ,了 ) 
call_stacKk_end 


1 iaTgin, Dregeut exXjt Code 
Dargin_Y 下 =Dld_nargin; nargDout_val=Old_nargout: 


六 funchHon exit Code 

点 .SinarreNULL7 了 ,SehlaretNULLY; 
TetaTTI 瑟 ; 

end_sSccpe 


j 
AI 缚 更 NI 


《4) 在 VC 工程 “Testl” 中 调用 转换 后 函数 “LineRq"”。 
阵 文件 经 转换 后 所 得 的 *h 和 *.cpp 文件 ， 与 一 般 的 语言 编写 的 程序 文件 一 样 ， 可 在 各 
种 VisualC++ 工 程 中 调用 。 “Testi” 工 程 调用 “LineEq” 程 序 清单 如 下 。 
AR 类 放 忻 
捐 nelmde "stdafx-h” 
折 nclnde "stdioh" 


失 inelude "taatiibh" Ai 包含 MATeom4. 和 数学 库 
丰 nclude "LineEg.h”" 





int mairlfint argc, chary argv[]) 
1 和 翅 性 方程 组 ， 
initMUOMATCOM_VERSIONY 1 初始 化 mat 刘 库 
RMm ab,x; WA 使 用 所 阵 类 Mm 构造 矩阵 ab,x. 
8 = (了 BR ) 2.3.semi,4.3,6.sSemi,7.8 ,17 
AH 给 矩阵 a 赋值 ，BR 是 MATrix<LIB> 库 的 一 个 老 ， 用 于 定义 一 个 矩阵 的 开始 ， 
HAsermi 是 matrix<Lib> 库 中 的 一 个 常量 ， 作 用 与 “;” 相 当 。 
5 = zeros(3,1; 凡 初 始 化 第 阵 3 为 零 矩 阵 3 行 工 列 
bfl,1) = 37; hf2,1 = 85; bf3,1) = 69; 凡 给 托 阵 日 赋值 
x= LineEqtab); 凡 调 用 转化 的 医 数 ， 求 解 线性 方程 组 的 解 
forfinti= 1 1i<= Xrows0; 让 +) 太 把 解 矩 阵 居 的 元 隶 显 示 出 来 
{ 
for (int iTij<=xcolsO:i++) 
PrintftC'xg( 2d2d=%fan ijx ri 
】 
exitMn: 六 结束 对 matib 库 的 调用 
Ietbmrn 个 ， 
} 
AAA 畏 划 1 也 


从 程序 清单 中 可 知 ， 对 “LineEq” 调 用 步 耿 为 ， 
名) 头 文 件 中 需 包 含 "matlih. 文件， 以 提供 MATecom4.5 数学 库 ; 
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包 初始 化 MATrix<Lib>: 

初始 化 函数 为 ，initM(MATCOM_VERSION)， 

该 本 数 可 多 次 调用 ， 人 参数 MATCOM_VERSION 是 一 个 在 matiib.h 中 定义 了 的 常量 ， 它 保 
证 了 动态 链接 库 与 matlib.h 相 匹配 ; 

全 转换 函数 调用 : M 文件 经 转换 后 生成 的 函数 , 其 参数 和 返回 值 均 为 MATeom 中 的 Mm 
数据 类 型 。 因 此 ， 转 帘 函 数 的 调用 ， 其 语法 格式 虽 与 一 般 C 程序 调用 相同 ， 但 对 函数 参数 及 
返回 值 的 赋值 、 存 取 等 操作 中 ， 应 注意 Mm 数据 类 型 的 操作 方法 ，Mm 对 象 操 作 克 9.3.4 见 。 

结束 MATrix<Lib> 类 库 : 

结束 函 数 为 : exitM0; 

Testl 工程 的 编译 、 链 接 与 一 般 C++ 程序 一 样 。 编 译 链 接 成 功 后 ， 得 独立 应 用 程序 

“Testl.exe"”， 执 行程 序 后 ， 得 线性 方程 组 的 解 为 : 
xf1,1T) = 3.000000 
x(2,1) = 5000000 
xf(3,1) = 8.000000 


9.3.3 m 文件 转换 示例 一 一 Test2 


“Test2” 是 以 MEC 创建 的 对 话 框 工 程 , 在 该 对 话 框 中 调用 经 转换 后 的 m 文件 以 完成 正弦 
函数 和 余弦 通 数 曲 线 绘制 ， 其 实现 步骤 如 下 。 


1 编写 mm 文件 “Mysin.m” 和 “Mycos.m” 
5 Mysinm 程序 清单 AAA 
fnnetion MYySsingKl,X2) 

天 一 全 二 :从 :区 了 

卫 =Sin( 忆 六 

Pot(X,Y); 

0 Myeosm 程序 清单 AAA 
fnetion Myeos[xlx2) 

其 =XX] :0.1:X2， 

下 =eO8 六 

blot( 委 ,TY); 
1 





2. 创建 VC 工程 “Test2? 

运行 Visual C++ 并 单 击 Pile 一 New， 打 开 Project 对 话 框 ， 创 建 Test2 工程 。 选 取 MEC 
AppWizard (exe)〔 图 9.18)。 在 loctation 编辑 框 中 输入 欲 创建 工程 的 保存 路 径 , 在 Project name 
编辑 框 中 输入 工程 名 如 “Test2” 单 击 “OK 进入 下 一 步 工程 设置 对 话 框 , 选取 “Dialog based "， 
单 击 Finmish 完成 “Test2” 工 程 创建 。 


3， 转 换 mm 文件 “Mysin.m” 和 “Mycos.m>” 

单 击 Visual MATcom 工具 栏 上 的 m++ 图 标 ， 选 择 保存 过 的 MATLAB 文件 Mysin,m 进行 
转换 ， 完 成 后 再 次 单 击 m++ 图 标 ， 选 择 Mycos.m 转换 〈 如 果 有 多 个 m 文件 ， 可 逐个 添加 并 转 
换 )。 如 果 看 到 的 转化 信息 提示 没有 锥 误 就 可 以 观察 到 此 时 在 FileView 标签 中 多 了 mvfiles、 
C++files created from m-files、MATrix<lib> 和 Extermal Dependencies 等 文件 爽 《图 9-19)。 在 相 
应 的 文件 来 下 增加 了 Mycos m、Mysin.m、Mycos.cpp、Mysin.cpp、v4501vHb、Mycosh、 Mysimh 
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和 matilibh 等 立 件 ， 表 本 看 误 件 转换 成 功 ， 分 别 在 “Myeosh” 和 “Mysin 和 和 ” 嘉 件 中 请 加 闷 
充 件 "matllb"， 进行 编译 ， 塔 编译 成 功 ， 进 入 下 一 步 ; 将 则 ， 委 明 加 嫉 件 中 存在 错误 ， 可 
天 击 机 -files 目录 下 相应 的 到 误 件 进行 休 避 ， 人 


= | Ia 有 





图 尔 1 冤 “Test 工程 创建 图 东 坷 Waincm 和 yeeem 京 尾 巾 乒 寻 时 


NT RE 和 立 件 精 单 

二 Erieliale ”rmiailiilis AAA 本 本 各 sailithit 训 人 忻 ， 否则， 二 评 村 报 情 
起 

iefane fycas-i 


上 

天 忆 让 下 ye 和 

用 下 交 生 上 让 性 而 章 

局 EAI 和 站 IEialib9 二 玄 得 ， 吾 出 ， 量 重 村 报 贡 

生 和 全 用 

人 EPE tin 上 

RE AI 

汪 d 到 机 由 
4. 在 WC 工程 “Tes 忆 ”中 调用 转 所 后 画 数 “NMyain” 和 和 “Mycos” 
i 基建 站 困 电 晤 所 示 对 话 框 界面 ， 井 以 甫 和 3 设置 各 控 伟 属性 ， 

于 人 引 3 Tast2 对 话 要 控件 属性 


属 "TTTT ET 
楼 受 间 户 帆 信 的 霸 瑞 南 计 。 与 之 利加 的 这 他 为 中 让 1 


FRR [FE 本 年 团 疡 入 大 的 夺 夫 点 归 ， 与 之 村 得 购 守业 为 mx 


邮 标 霸 鱼 单 击 庆 柱 件 ， 调 玫 Ma 霄 数 于 内 抽 正 盘 由 红 





惠 这 洒 而 志 


是 是 





图 由 天 Te 对话 杠 
[1 王 扣 关 充 件 ; 
提 iEE 罗 号 “iLh 
前 站 有 “CS 和 
者 [有 | 送 “ELE| 
131 下 IC BUTION_MySin 座 加 是 应 代 同 : 
Yi iTesraDicOaBUTTONMYSi 
| 
吉 s 上 | 挛 贡 | 二 
辣 aEIDHEBTT 避 加 闪 WA 人 五 值 栈 所 与 过 由 加 的 变 重 
贡 | do 必 有 避 |。 汪 了 sd 
本 本寺 和 acICWhdtGetDisttemtiDC 上 向 5 辣 时 证 号 半 于 
Rn 闭口 示 aiile 王 得 半 ESLPain-sn hwnd WAN 这 取 硬 到 问 硬 
nitMIMATCGOM WERSIONTE AAA 折 候 mit 库 
RsingaTYai WAN 国 用 转换 生 大 的 函数 
Ri WAN 进出 mib 库 
| 
[4) 钥 TDC_BUTTON_MyCnos 出 加 响应 代码 


证 记 TestzDIEICONEITTONRCOsi) 

| 

本 本 虽 想 瑟 ; 

UpdaieDaafTRUE) AN 桂 闹 相框 中 输 关 值 配 给 导 之 相连 的 这 量 
所]i[iGbIENEL 克 1 工 (ddb 后 ]GL_ 天 了 

Cnde FaslCWinde CELDMEJISDnITDIC SHELL 
Rn Pilethianalle=Awinagegsltpeaecem_hWRdiS WAWN 计 琴 图 于 向 情 

iaitMIMATCOM_VERSIONE 人 WUWN 要 始 化 matih 隆 
RiyeaslglsaE AN 调 电 转 摘 生 戌 的 函数 
本 进出 惠 库 

| 


5) 铀 译 链接 全 蚂 工程 ; 

棱 一 般 的 C++ 程序 进行 喝 译 性 捷 尿 s 这 工程 ， 这 其 中 ， 由 于 Mysinh 和 Myweosh 函数 定 吕 
误 件 是 相 诬 的 画 嘉 件 转换 生 民 的 ， 生 新 辐 译 整个 工程 时 ， 这 两 个 误 件 同时 重新 转换 ，WVC++ 
光 问 用 户外 部 WMysinh 和 Myeosh 已 发 生 相 改 ， 足 否 重新 加 载 这 西 个 广 付 时 , 一 般 选 择 不 重新 
如 战 ， 国 重新 转换 生成 的 Myanh 和 Myees6 畜 件 中 ， 贡 有 和 包 合 “matlibh” 世 误 件 ， 需 用 户 
手动 鹿 如 ， 震 设 有 所 音 访 立 件 ， 屿 详 器 平 能 识 出 刚 站 鉴 据 类 型 厕 发生 铺 各 ， 

( 百 4 朱 行 本 es 

执行 Tst2ewe 嘉 件 后 ， 往 徊 图 小 21 所 示 对 语 框 ， 在 上 辑 框 中 输 六 站 和 了 5 局 辣 近似 但)， 
茧 南 -5n 和 pos 慎 粗 后 ， 在 志 框 中 综 刷 了 相 庶 的 曲 战 。 





画 束 31 Te 这 十 行 奈 果 


5， 邓 立 应 用 程序 改 布 

通过 MATeom 殷 . 吕 文件 纺 译注 为 sand alone 的 程序 ， 一 般 不 击 要 MATLAB 原 屿 ， 仅 需 
复 抽 一 些 必 要 的 昌 玄 件 ， 这 些 京介 主 要 有 :网 细 1 ， 闻 04301. 各 ， 本 ad 和 dl 以 及 
中 网 语 TLAA 目 晤 籼 imwwin3z 目 归 市 以 得 开关 的 出 | 喜 件 , 当 总 ， 间 刺 是 上 个 炎 亦 应 肝 程序 邦 需 要 
所 有 岂 jb 开关 的 地 | 误 件 ， 只 是 将 这 些 i* 师 | 玄 忻 部 复制 后 ， 园 为 方便 。 


9.3.4 matiib 数学 库 与 Mim 数据 类 型 


是 下 由 1 和 让 s 工程 中 可 二 ，MATEom 与 WCG4+ 中 数据 交换 ， 是 基于 MAThiools 提供 的 
MATeem EC 数学 库 函 数 用 其 数据 类 型 Ma 的 。 国 此， 来 节 对 MATeomn 数学 床 函 烙 员 挫败 蝎 
竟 弄 Mami 作 障 单价 纪 ， 详 辣 情 况 可 查 疝 师 岗 ATeematS 风 WibwunatHth 支 人 性 。 

MATeaam 己 数学 库 函 数 是 一 个 超 闪 的 监 学 库 ， 它 提供 的 数学 函数 拘 600 个 ， 这 些 萄 学 画 
数 可 分 为 ; 短 阵 基础 类 、 系 统 常 数 ， 特 磁 函 数 ， 异 需 处 理 画 数 ， 矩 曙 生 成 函数 ,操作 条 统 赣 
师 函 数 ， 整 值 计算 函数 ， 数 学 函数 ， 算 阵 描 作 函 数 ， 垂 阵 属 性 函 束 。 图 形 函 数 ， 题 色 函 数 ， 
用 产 界 面 函 数 ， 刘 断 函 数 族 。mex 函数 。 汪 符 惠 函数 和 类 弄 特 换 函 数 等 十 儿 大 类 。 其 中 最 过 
用 是 的 矩阵 蓝 础 贰 函数 和 字符 串 函 数 。 

MATeom 给 阵 基础 类 数据 类 型 为 Mm， 与 C++ 程序 中 的 党 一样， 采用 class 定 尽 。 困 而 ， 
用 户 可 像 C++ 中 的 类 一 样 用 Mm 来 定义 数据 对 象 和 使 用 Mm 涩 数据 对 象 ，Mm 类 还 封装 浴 过 
的 Mm 美 对 银 操 作 函 数 和 析 构 函数 ， 当 程序 终止 时 ， 程 序 调用 Mam 类 的 析 构 函数 释放 Mam 数 


惠 册 汪 和 





据 对 象 所 占 的 内 存 空 间 。 下 面 列 出 了 Mm 类 中 常用 的 成 员 变 量 及 操作 函数 。 


etass ktim { 
friend class Mr AAA Mr 为 matlib.h 中 定 尽 的 另 一 个 类 
Proteeted:， AAA 受 保 护 成 员 变 量 
intndims; AAA 维 数 
int dims[max_ndims]; AAA 维 数 数组 ， 存 放 对 象 每 一 维 的 大 小 
intB; AAA 指向 Mm 对 象 的 指针 
intt PE; AAA 指向 Mm 对 象 中 复数 指针 
m_typex pr AAA 指向 Mm 对 象 中 实 部 指针 
Im_types pi AAA 指 癌 Mm 对 象 中 虚 部 指针 
Cotst char+ Self_ name: AAA 交加 
comst har#* 首 elds; AAA 字段 名 
int nfields; AAA 字段 数 
int classid， AAA 类 耿 值 
Public: AAA 公有 函数 
M_types flags; /AAA 数据 符号 
DLL Mm0O; AAA 无 参数 构造 国 数 ， 用 于 类 对 象 声 明 
WAAAAAAAAA 囊 参数 的 构造 冰 数 
DLLI Mrmtint jsc, mt iss, int notnzeros, int nrows, int ncols, Int_lnatrix_types new_type=mt_qouble 


_Imatrix); 
其 中 ，isc 一 是 否 为 复数 第 阵 ，iss 一 是 否 为 字符 串 矩 阵 ，nonzeros 一 是 香 为 非 数 值 矩阵 ， 
nrows 一 矩阵 行 数 ; ncols 一 矩阵 列 数 ; tmt_deuble_matrix 一 双 精 度 矩 阵 


DLLI Mmrint jsc, int iss, int onzers, int new_ ndinms, const intmew_Qims[imnax_nqimsl, imt matrix 
_types new_type=mt_ double matrix); 

DLLI Mmli ao t eonst chary mname, int isSglobalj 

DLLI Mrmrcenst charf Inanae， int 了 intn3i AR 

DLLI Mtint aisc cMm X ctm y cm diml, op top:intdo dm Nm minmax idx); 

DLLI Matm_type src); 

DLLI MimtcMnma Src]; 

DLLI MintcMin Src, cotlst chatrt Inname); 

DLLI Mmfcenst Mec 衣 sre); 

DLLI~Mimn0; AAA 析 构 函数 ， 程 序 终止 时 调用 析 构 函数 进行 内 存 释放 


Mm RDLLI operator =(cMm src):AA 赋 值 操作 适 重 载 


injline int DELLI rowsO const f rebam 由 msf0]: 1 AAA 返回 答 阵 的 行 数 
inline int DLLI colsO const{ retum dims[i]; AAA 返回 矩阵 的 列 数 
intDLELIsSizel)y const AAA 返回 Mm 对 银 的 元 素 个 数 大 小 

int DLLI sizefint dim) const AAA 返回 Min 对 银 每 一 维 的 元 素 个 数 

int DLLI vectordimO const AN 返回 向 量 的 锥 数 


const char PDLLI getuamtety const { return self name; ]7 张 取 类 名 
wo 记 DLLI setnamefconst Chary new_thame]yAAAAAAAAAAAHAAA 设 置 新 的 类 名 


int DLLIisstr0 const { returm (fags,strl=07 ] HA 判断 是 否 为 字符 扎 阵 

iniine int DLLI issparsefy const { retum fflags.sparsel= 人 ;1 判断 是 否 为 稀 玻 矩阵 
inline intDLLIisglobalO const { Teturm fags.globall=0); 1] 判断 是 否 为 全 局 矩阵 
iline intDLLI isstructO const { tetumt (fieldsI=NULL), AN 淹 断 是 否 为 结构 体 矩阵 
iniine intDLLIiscO const {f retuml fpil=NULIL: AN 判断 是 否 为 复数 此 阵 
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inline it DLLIislogicalg const { retunm (ftass.Iogicall=0; 1 判断 是 否 为 逻辑 变量 阜 阵 
infine int RDLLIT getndimsfy constf retum fint)ndims: 1 获取 维 煞 数组 指导 


void DLLIsetstrfint newd);AAN 谨 置 字 符 串 

Yoid DLLI setisparsefint sp 设置 稀 蕊 掉 阵 

void DLLI setogical(int newdjAW 设 置 迎 辑 变量 

inline M_types RDLLI getflagsO { retunm Hags: }7 获 取 数 据 符 号 


inline m_type PDLLI getprtm._type*) const f retum (mtypespt Wi 茶 到 实 部 指针 
inline m_type PDLLT getpitm_type+) cotst{f retur fm_typesr]pi' } 凡 获取 虑 部 指针 
m_type PDLLIaddrO cons6G AWAY 获取 指向 Min 对 象 的 实 部 指针 起 始 地 址 
m_type PDELLI addiint i0) const' jh 获取 指向 Mm 对 象 的 虚 部 指针 起 始 地 址 
m_type PDLLI addrlint i0,int i[) const; 1 获取 指向 Mm 对 象 (i0,il) 实 部 地 址 
tm_type PDLLEaddi0O const jA 获取 指向 Mm 对 象 的 虚 部 起 始 地 址 

mm_type PDLELT addifint 训 ) const 太 获取 指向 Mm 对 象 中 第 这 个 元 素 的 虚 部 地 址 
m_iype PPLLI addifint ip,int il) eonst / 误 取 指向 Man 对象 fi0.i1) 虚 部 地 址 


int DLLI getrealfint force= 份 constA 芍 取 实 部 
intDELLI SetcomplexDJAAAAAAAAAAAAAANA 取 复数 


int DLLI findfieldfconst charx 昌 eld, int ef) eolatA 查 找 字 符 串 

const char PPELLI getiekdtint D constJANAAAANA 按 索 引号 装 取 字 符 串 指针 
jat DLLI addfieldtconst char* field,int quicl)AN 按 索引 号 添加 字符 串 
intPDLLI getclassidf const { Tetutn classid, AAA 续 取 类 ID 

void DLLI setclassidftint new_classid) { classid=new_ classid, ]W 设 置 新 的 思 


在 土 述 Mm 类 定义 基础 上 上 ， 举 例 说 明 Mm 类 对 象 的 定义 、 赋 值 和 运算 等 操作 。 下 面 程序 
清单 为 VC++ 的 主要 程序 片段 。 
(1》 使 用 Mm 类 ， 必 须 包 含 头 文件 ; 


并 include “mattib.h” 
AHNW 


《2 Mm 对 象 定义 、 赋 值 、 运 算 等 举例 
JWAANMm 对 象 定义 、 赋 值 、 运 算 等 举例 


int ijj,muan; 

double 站 让 十 ,本 水 肌 二, 汪 人 二, 汪 本 站] 

Mm X1X2.X3,X4XS; AH 用 无 参数 的 构造 孙 效 定义 Mim 类 对 铺 

FILE* 角 ; 

让 (ip= 扣 pen( Mm.txt ww Ji==NULLI[MessageBoxfCamt open R_R Input File" Jexit(O); 
tn=n=5; 

AL=new double*[m];fori=0icm'i++)A10]=new doubIe[nJ:WCc 动态 数组 由 用 户 创 建 并 分 配 地 址 
下 1=new douhle*[fmjiiord=0i<rmosi++ 还 If=new doublefn]; 

人 1=new double+[rmmjifiori=f:icmsi++C1Iil=new doaplefn] 

D1=new dounble*[m:feri=0i<nmii++DpHi0]=new double[a]， 


着 1=magictnh AN 生成 一 个 3 内 魔方 矩阵 ， 由 MAT3ib 矩阵 直接 赋值 ， 荆 值 时 隐 售 矩阵 方式 初始 化 
X2=X1; 1HWkMm 类 实现 了 操作 符 "=" 重 载 ， 赋 值 时 隐 含 矩阵 方式 初始 化 
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Am ij ， 

X3=XIT+X2; 1Mm 类 实现 了 操作 符 "+" 重 载 ， 赋 值 时 隐 含 算 阵 方式 初始 化 

Xd4=X1*X2; AMm 类 实现 了 操作 符 "*" 重 裁 ( 拭 阵 乘法 )， 赋 值 时 隐 售 矩阵 方式 初始 化 

forG=0:i<ni:i+Hiiorj=O:ienij++) 

{A1D[=*Xladdri+1j+TD addri+lj+lD 获 取 (i+1j+i 元 素 实 毅 地 址 ， 并 将 数据 赋 给 At] 中] 

呈 1[ 轩 [=*X3.adqririjrD 组 下 标 从 交 开始 ， 而 Mm 矩阵 下 标 从 1] 开始 ， 故 (il1j+]) 与 由 中 对 旷 

它 1[ 拉 =X4r041+HD HLjf 直 接 读 取 Mm 对 象 的 实 部 人 it1j+ 人 中 数据 赋 给 CI 

DT 全 [=(*X1.addrfi+1jfD)x(xeX2.addrli+lj+l)h 

*X5S.addri+lj+tFDIDIDXXS 虽 由 Mom 定义 对 象 ， 但 未 经 矩阵 方式 初 化 而 直接 引用 Mim 对 象 中 元 素 ， 
1 这 种 方式 概 易 出 错 ， 建 议 不 使 用 未 经 矩阵 方式 初始 化 的 Mm 对 查 





] 

AAA 输出 操作 

fprintftfip, An Output X1 by *X1.addri+1jflyan: 
forfi=0:icn'it+iffprintft 和 pnyiford=0jj<nj+t+tifprintftfp,” 28.31f”*X1addri+lj+l)} 
fprintfrfp， wo Output 其 2 by 2.r0Gf1 二 了 An); 

fomi=0;i<n;i++)jtfiprintfrfp njiforj=0:j<nij++iiprinti(fp” 噬 8.31 区 2.KitITJHT 

fprintfrfp,"n Output X1+X2 by B1[iDlnny 
forli=05<n;i++jffprintf 印 An"jiforj=0j<nj++iiprintftfp, ”站 8.3 了 ”BID 

下 rint 全 让 ,An Output 其 1 及 2 by 让 并 站 2; 

forli=0:icnii++)iifprintttfp, nyforj=0:j<nsj++jipiinttitfp,” 站 8.31fw5C1DDD:} 
| 

和 rintfff 和 pa Ontput 尺 1.*X2 by 1 :An 

forfi=0ji<nii++Hi[iprintiffip ai'ford bj<cnjj+THiprintRip ”583 DI 和 IDD) 

fipzintf 全 ,aa Outpat X1.*X2 by D10i]U] sn 

fnri=0'icn:i+bffprintttfp an:forj=0j<nj++ifprintt(fp,” 2831f"*X5.addri+litDTD 1 
WADI1 输 出 数据 应 与 *X5.addriflj+b 输 出 数据 相同 ， 但 程序 适 行 结果 不 同 ， 表 明 ， 直 全 
/ 轨 | 用 末 经 息 阵 方式 初始 化 的 Mm 对 象 元 素 ， 易 导数 错误 结果 ,*X5.addri+Ij+T) 输 出 结果 铺 误 


Mm Y]1=onestn; 1 定义 对 象 时 隐 售 算 阵 方式 初始 化 
Mm Y20 nn 1p 或 采用 带 参 数 mn 的 构造 函 类 定义 对 象 
forfi=0;i<n;iHbifor=O:j<a:j++y 
YLrGi+ij+TD=A1ITj]; AAA 可 引用 Mrm 对 得 中 的 元 素 
+*Y2.addri+lj+b=BIDI[DAAAA 可 引用 Mn 对 入 中 的 元 素 
] 
fprintftfp,”%n OutpatYl by YL.rG+lj+1D nn 
fori=0i<n;i++i{fprintffp ytorg=0:j<n:jj++ypantttfp” 站 8.31f "YLrGirljiHlD;) 
外 rintfrfp, An Outptut Y2 by *Y2.addrfi+l,j+1] :中 
forti=0icn3i++ifprintfftfp aiford=0j<n:j++)fprintftfp,” 28.3If”*Y2.addr0+1j+T] 
1 YLTiHLHHD 和 *Y2addri+l,j+i 输 出 正确 


AN 使 用 宏 BRO 邓 Mim 对 每 赋 初 值 举 屋 

Mim Z; 

Z=(BRII0) 1.3.5.7.sermi6,.7.8.9,10semi,12.17.18,19.203:7 荆 值 时 隐 含 用 矩阵 初始 化 对 锡 
ABRO 宏 表示 Z 矩 阵 开 始 ，BR(]W 表 示 并 算 阵 第 一 个 元 素 值 为 10， 以 后 依次 将 数据 赋 与 Z， 
Asemni 宏 表 示 分 号 

fprintffp,n Dutpur Z by *Z.addrfi+l.j+l mn 
forfi=0'i<3;i++)i[iprin 攻 名 An :fori=0j<sij++iiprintftfp,”%%8.31f"*Z.addr(iHlj+1):} 





HA 使 用 家 M_VECTOR 对 Mm 对 象 赋 初 值 举例 


“231。 











donble E_Veeter[6]=11.2,3.4.5,61， 

MmzliM VECTORIZ1BE_Veetor' 1 使 用 宏 M_YECTOR 对 Mm 对 象 赋 杨 值 
prin 柄 fp Output Z1 by *Z.addr 全 2 人 

forj=0j<6j++ifprintftfp,， 芭 8.3 人 fsZ1addrtj+1i 

forfi=03i<mai++yielete 上 10];delets Ai;Y 由 用 户 困 放 内 存 空间 ， 调 Mm 对 象 则 自动 调用 
fori=-0ji<mi;i++kielete Blfijidelete BTi /1 构 函数 来 释放 所 分 配 的 空间 
formi=0'i<mii++jdelete 司 1[ 刘 deie 人 e 安 ]， 

fr=0j<rgii+)Jdelete 卫 Tidelete 也]1， 

AAA 字符 串 操 作 举 例 

TD 22= 人 ”mi 

CStrng str[S]， 

STONE MATeom 1 based on 了 he Mn 

gfrldj="Mm is defined in matlibh"; 

8& 人 fr[2]=" Read it carefully"， 

sr[3]= "Learmn the qqata exhange Inechanisna"; 

str[4]=" Youl sigh the MATeom's Programming iapiece of cake with emation"; 
ford=03j<mii++iZ2.addfieldftstr 扣 iT 使 用 .addfield 将 字符 串 添 如 到 Mam 对 每 中 
fprntf 和 pm Output Z2 by Z2.gettiela0 0 

forG=0ji<msit+)fprintf 和 pn %%sm",Z2.getfieldG)AWA 按 索引 号 获取 字符 串 操 针 


felose(fp); AHNW 关闭 训 件 
ANNNNNN 缚 曙 1NNAANNNNN 


程序 运行 后 的 输出 结果 如 下 : 
Output 大 by *#X1 addrfi+1j+l 
17.000 2 巴 .000 1.000 38.000 15.000 
23.000 5.000 7.000 “14000 16.000 
4.000 0.000 13.000 20.000 ”22.000 
10.000 12.000 19000 21.000 3.000 
TI1.000 18.000 25.000 2.000 9.000 

Output X2 by X2ni+1j+D: 

17.000 ” 旭 000 1.000 8000 115.000 
23.000 5.000 7.000 14.000 ”16000 

4.000 6.000 13.000 2 怒 000 22000 
10.000 12.000 19.000 21.000 3.000 
11.000 18.000 23.000 2.000 9.000 

Ontput 买 1+X2 py 下 1[]: 

34.000 d48.000 2.000 16.000 30.000 
46.000 10.000 14.000 28.000 32.000 

8000 12.000 站 .000 44000 44000 
20.000 24000 338.000 “2000 6.000 
22.000 36.000 50000 4.000 18.000 

Output X1# 和 by 女 1[i][j， 

1090.000 ”900.000 73725000 ”690.000 820.000 
850.000 1075.000 81I5.000 720.000 3765.000 
700.000 840.000 1145.000 840.000 700.000 
765.000 720.000 815.000 1075.000 850.000 
820.000 690000 725.000 900.000 1090.000 

Outpat 大 1.# 大 2 by D10i]T : 

280.000 576.000 1000 64.000 225.000 
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329.000 23.000 49.000 
16.000 36.000 169.000 
100.000 144.000 361.000 
121.000 324.000 ”625.000 
Output 和 1L*X2by TDHiiUj] : 
245000 ”225.000 225.000 
256.000 “256.000 256.000 
484.000 “4834.000 ”4 复 4.000 
9.000 4000 4.000 
8E.0O00 81.000 81.000 
OutputYl by 立 1rG+1j+ly 
17.000 24.000 1.000 
23.000 5.000 7.000 
4.000 6.000 13.000 
10.000 12.000 19.000 
11.000 18.000 25.000 
Output Y2 by *Y2.addrfi+l,j+l) : 
34.000 48.000 2.000 
46.000 10.000 14.000 
8.000 12.000 26.000 
20.000 24.000 38.000 
22.000 36.000 50.000 
Output 乙 by *Z.atldri+lj+l) : 
10.000 1.000 3.000 
6.000 7.000 000 
12.000 17.000 18.000 
Output Z1 by *#Z.addafjl,j+]) 3 
1.000 2.000 3.000 
COmtput Za by 之 2.Setfield : 
MATeom js based on the Mm 
KMm is qefined in matlib.h 
Reed it earefully 
ELearn 也 e data exhange inechanistm 


Youll sigh the MATeom's progratnminE 褒 a Piece of cake with emoftion 


196.000 
400.000 
441.000 

4.000 


225.000 
256.000 
484.000 
9.000 
81.000 


38.000 
14.000 
20.000 
21.000 
2.000 


16.000 
28.000 
40.000 
42.000 

4.000 


5.000 
9.000 
19.000 


4.000 


256,.000 
484.000 
93.000 
&1.000 


225.000 
256.000 
484.000 
9.000 
81.000 


15.000 
16.000 
234.000 
3.000 
9.000 


30000 
32.000 
44.000 

6.000 
]8.000 


7.000 
10.000 
20.000 


5.000 


6.000 
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第 10 章 MATLAB 与 Excel 接口 


前 面 普 经 介绍 了 MATLAB 的 Excel 生成 器 ， 利 用 它 可 以 生成 DLL 组 件 和 YBA 伐 个 。 在 
Bxcel 中 ， 可 以 把 VBA 代码 保存 为 Excel 搬 件 .利用 DBPE 和 自动 化 技术 也 能 实现 它们 之 间 的 
链接 。 此 外 ，MATLAB 还 和 供 了 一 个 Exeel Link 播 件 ， 利 用 它 ， 可 以 直接 在 Bxeel 环境 下 完 
成 与 MATLAB 的 数据 传输 ， 并 运行 MATLAB 命令 。 所 以 ，MATLAB 与 Excel 的 接 只 是 目前 
MATTLAB 与 外 部 各 种 程序 的 接口 中 手段 最 多 、 最 完备 的 。 


10.1 自动 化 链接 


10.1I MATLAB 作为 自动 化 客户 端 
利用 MATLAB 的 actxserver 函数 ， 可 以 将 Excel 设置 为 服务 器 端 应 用 程序 。 


h=actxseIver(Cexcelapplication') 
h= 
三 MLexcelapphEication 


用 get 函数 获取 一 个 Excel 应 用 的 工作 短 按 口 。 


W=pRLh，workbooks” 
邮 志 
了 terfiace.eXcelapbplication,.wWearkboeks 


用 get 函数 获取 对 象 所 有 属性 值 
gethy) 


ang = 
和 点 pplication: [1xt Interface.excelapplication.Applicatiom] 
Creator XICreatorCode' 
Parent: [ixl Interface.excel.application.Parent] 
ActiveCell: [] 
点 ctiveChart [1xS0 char] 
Activeprinter: WPRINTERSAKunkel on Negl' 
AcetiveSheet' 日 
贞 ctiveWindow: 门 

上 AddJns: [1xl Inierface.excelapplicitiot,AddIns] 





下 面 介 绍 一 个 MATLAB 自己 附带 的 例子 。 本 便 中 ， 把 MATLAH 作为 自动 化 客户 端 ， 把 
Excel 作为 服务 器 端 。 
站 首先 ， 打 开 一 个 Exeel 服务 器 


名 = CtSEtwver( excelapplicatiorm'》; 


% 揪 入 一 个 新 的 工作 藉 
eWOrkbocok = WiRTEbooks. 上 dd 
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总 上 居 果 上 | 三 下 


辑 邮 活 第 工 个 表 
革 和 二 三 臣 - 册 车 矶 全 10 生 ee 


让 | 人 = 5Sjag 二 :证 忆 直 ET | 生 
[1 


器 把 MATLAB 数组 放 到 Exeel 

站 二 | 作 二 了 直上 

到 专 号 合 WsEEIEei 卫 让 疝 庆 二 让- 记 HWiEE 拘 认可 让 机 二 坝 | 是 闻 生 
下 商店 ESHEELIR SI 必 E 风 到 | 三- 和 贞 ; 


旺 运 刁 一 在 范 冉 。 它 旺 一 个 单元 时 诅 ， 因 为 音 元 苑 转 可 忆 枉 音 币 同 顷 型 的 数据 
已 耻 芭 | 必 E 可 起 . 矶 站 We: 亩 关 轩 相关 下 二。 由 二 加 二 站 
田 三 BRamge Wialaes 


电 转 损 入 由 bie 生 了 作 ， 季 元 数 征 必 红 有 具 得 音标 重 
四 二 人 [ 王 让 上 | 到 三 再) 


保存 工作 短 
已 顺口 二 aa 庆生 让 VE 起 是 生 肥 ,也 区 下 


红 地 出 EAeal 非 剧 陈 最 务 顺 
下 Ji 
可 迪 E 这 : 
在 闪 地 窗口 中 输 六 世上 页 和 过 以 后 ,启动 Eeel 大 在 工作 短 中 输 关 一 个 MATLAE 数 组 的 值 ， 
挎 后 保存 为 “myfilexls"， 如 图 10.1 所 示 。 





图 10-1 下 weel 作为 服务 号 袁 


i0.12 MATLAB 作为 自动 化 服务 器 问 
把 MATLAB 作为 自动 化 服务 器 而 时 ， 在 Exeal 的 Wiil Bie 蝙 辑 器 让 编程 ， 利 用 
CrealeObjset 诅 数 或 GelOhbiect 函 到 ， 粘 合 MATLAB 的 PonegID 值 ， 可 以 在 Exeel 中 直接 启 动 
MATLAB， 并 使用 MATLAB 提供 的 自动 化 方 洼 和 帮 性 进行 编 原 ， 
EReel 的 Waial 理 王 证 坑 辑 骂 和 图 12 所 示 。 






图 10.3 Beel 的 Ba 编辑 加 
10.2 Excel Link 质 忻 


10.2.1 概述 

Exeel Link 是 一 沾 园 件 捅 人 性 ， 电 特 Eseal 和 MATLAB 在 懒 较 旬 窗 环 起 下 进 季 供 成 。 通 过 
链接 Exeel 和 | MATLAB， 可 以 从 Excejl 工作 表 和 室 编 程 工具 中 茧 得 MATLAB 的 数值 计算 和 图 
形 棕 制 功 能 ， 能 铝 在 两 个 环境 之 间 变 换 灼 据 。 

Exeel Li 在 Exeal 工作 侄 间 利 MATLAB 工作 室 间 立 间 进行 通信 。 它 把 Eeel 作 狼 
MATLAB 的 前 山 ， 在 Beal 的 工作 表 或 宏 中 使 用 Excel Lik: 浮 数 ， 面 布 必 离 开 世 weel 怀 壤 ， 
ExeeiLink 用 步 量 的 函 归 实现 链接 管理 和 蓝 所 操作， 以 简便 赵 胜 ， 

Exeel Link 的 运行 机 制 邵 图 10-3 所 示 ， 






划 00 于 REe| 1 的 运行 机 由 


10.2.3 安装 和 操作 Exeel Link 揪 件 


1， 夭 弹 需 未 

Exeel Liak 占用 还 352KB 的 伐 埋 齐 间 。 模 作 系 统 可 以 是 如 indowgg8，Wiadows NT40 或 
Windaws ao00。，ExeerLink 还 需要 Eeelg7 或 Exeel 2000， 和 下 1 以 上 版 订 的 MATLAB。 

为 了 使 MATLAE 的 图 形 图 售 有 更 好 的 规 世 效果 ， 将 显示 只 设置 为 256 种 冰 色 以 上 ， 

在 安装 册 ATLAB 的 过 程 中 ， 园 择 ENeel Link 核 选 蜡 ， 矶 可 以 安装 EeelLinks 


呈 ， 碍 Ewcal 中 注册 Ewcel LinK 

安装 Exeel Link 以 后 ， 谁 备 广 册 Eneal。 需 要 进 
行 忆 下 所 对 步 独 ， 

0 庆 惑 Exeal。 

【24 在 “工具 ”菜单 中 选择 “加载 宕 .选项 ， 
打开 “如 开 志 ” 对 话 框 ， 如 图 10 了 4 所 示 。 在 对 话 框 
中 单 击 “ 启 鉴 ,.,” 技 钥 。 

[3) 在 <mattatshiooitaxextnak 目录 中 扫 到 和 过 
返 Exeal 岳 必 excltink:xla， 单 击 “ 确 定 ” 技 担 ， 

[1 回 到 “如 载 索 ” 窗 马 ， 可 以 看 到 在 “当前 
前 载 宝 "” 列 惠 框 的 硕 部 衣 加 了 “区 ee 了 人 or da 
wii MATLA 二 过， 而 县 读 选项 被 竺 中 。 单 击 “ 确 定 ” 技 钮 ， 现 在 安装 了 Eeel Li 二 搬 件 ， 

【显示 MATLAEBCommand window” 密 口 ， 如 图 10-5 所 下 。 





10.4 “如 瞄 室 ” 对 话 杠 


| 融 人 十 晤 于 六 玫 开 而 8。 下 二 在 证， 硬 计 而 而 关 呈 千 和 天 刘 上 有 鳖 生计 二 让 码 和 有。 
画 ” 看 FF 本 二 直 放下 局 十 匡 六 本 本村 让 而 而 时 让 用 小生 天 本 于。 也 二 让 二 村 棕 局 旬 < 和 | 





国 1- 客人 TL 生 四 Catrmiad Windna” 协 口 


【6 稍 苇 片刻 ，Exeel Li 上 工具 条 在 Exeal 工作 囊 昌 出现， 如 图 10-6 所 示 。 计 加 的 Exeel 
LiiE 工具 条 中 和 包 播 子 直 工具 慷 钙 ， 夯 “puimarir” “Wetmarrix ”有 “evalstring ， 它们 从 别 生 
现 折 必 据 传 络 MATLAB， 从 MATLAE 提 肥 数据 和 执行 MATLA 凋 地， 

现在 ExXeel Lirk 可 以 用 了 ， 

注意 ，<=anailabs 指 MAILAB 安装 的 枢 目 最 ， 这 时 MATLAB 圳 面 焉 误 看 动 启动 ， 妇 时 斌 
转运 和 抹 果 面 ， 则 丰富 寺 窗口 中 国 六 “deskion 。 


sa 二 了 十 





立 1 本 Eaeeliing 荆 则 党 


引 ， 启 动 Eneel Link 

可 以 直 动 硝 吕 RealLiak， 也 可 忆 用 季 工 局 去 它 ， F 面 车 别 坦 行 齐 细 ， 

(1) 自动 启动 ， 技 照 前 面 的 提示 安 鼓 和 注册 以 后 ， 诅 动 Exeel 时 ，Excel Link 有 MATLAB 会 
自动 启动 。 如 果 不 希 组 咎 动 Eneel 时 自动 启动 Exeal 和 MATLAB， 在 工作 表单 元 中 给 入 
“MT AuioStarl no 该 画 数 会 改变 初始 化 文件 , 这样，Exeel Link 和 MATLAB 不 再 自动 局 动 。 

【21 手工 自动 从 Eeel 中 手工 启动 Exeel Link 和 MATLAB， 可 在 “工具 ” 药 单 中 选择 
+ 过 本 后 在 它 的 次 级 更 单 中 单 击 ” 害 ..” 选项, 打开 " 密 ” 对话 内， 如 图 10-7 所 示 。 在“ 和光 
理 ” 亦 可 全 中 输 关 “msilafinits 井 昔 击 执 行 " 技 独 。 等 一 站， 就 可 看 到 ”WMATLAB Cam 
友 indow” 技 所 显示 在 任务 条 上 。 


， 链 接 已 皮 存 在 的 MATLAB 

要 糙 一 个 新 的 Exeel 进程 与 已 经 存在 的 MATLAB 进程 链接 起 来 ， 必 须 用 /autaamaion 页 他 
行 选 项 启动 MATLAB。 该 选项 殷 MATLAE 作为 一 个 自动 化 服务 器 ， 间 司 命令 窗口 最 小 化 。 

接 昭 下面 的 瞩 事 在 南 信 村 中 话 加 automatioo 网 项 : 

癌 ) 者 二 MATLAB 的 恢 印 轩 标 ; 

画 选择 -属性 ”选项 ， 

面 | 音 击 “ 怖 捷 方 式 ” 造 需 卡 ， 

团 在 “目标 ” 文 玉 己 中 洛 加 字 特 串 . atomation。 记 住 ， 在 matlabexe 和 /automation 之 间 
图 一 个 空格 。 

宪 成 以 上 步 李 后 的 窗口 如 图 10- 和 所 示 。 





围 10.7 “这 ”对话 杠 疼 10 畏 榨 视 填 
画 二 中 8 十 








， 终 止 Excel Link 的 运行 

退出 Excel， 也 就 同时 退出 了 Execel Link 和 MATLAB。 要 想 停 止 运行 MATLAB 和 Excel 
Link， 但 让 Excel 继续 运行 ， 应 在 Excel 工作 表单 元 中 输入 “=MLClose0” 可 以 用 MLOpen 
或 matlabinit 手工 重启 Excel Link 和 MAITITAB。， 如 果 直 接 在 MAITLAB 命令 寡 口 中 停止 进行 
MATLAB, 并 让 Excel 继续 运行 , 庶 在 Excel 工作 表单 元 中 输入 “=MLClose0 .可 以 用 MLOpen 
或 matlabinit 手工 重启 Excel Link 和 MATLABB。 

通过 Exeel Link 这 个 中 介 ，Excel 成 为 MAITLAB 的 一 个 易于 使 用 的 数据 存 情 和 应 用 开发 
前 端 ， 它 是 一 个 威力 强大 的 计算 和 图 形 处理 器 。 


10.2.3 Excel Link 的 函数 


Excel Link 提供 了 一 些 管 理 链接 和 操作 数据 的 函数 , 利用 它们 , 可 以 不 必 离 开 Excel 环 壕 ， 
像 调 用 工作 表单 元 公式 那样 调用 它们 或 者 在 宏 中 使 用 它们 。 


T， 链 接管 理 函 数 

Excel Linkg 提供 了 4 个 链接 管理 函数 来 初始 化 ， 启 动 、 终 止 Excel Link 和 MATLAB.。 

es matlabinit 初始 化 Excel Link 并 启动 MATLAB 进程 。 

MILAutoStart 上 自动 局 动 MATLAB 进程 ， 

e MLClose 终止 MATTLAB 进程 ， 

e MLOpen 启动 MATLAH 进程 。 

可 作为 一 个 工作 表单 元 公式 或 在 宏 中 调用 任何 除了 matlabinit 以 外 的 链接 管理 函数 。 在 
Excel 的 “工具 ” 策 单 中 单 击 “ 宏 ” 选 项 或 在 宏 过 程 中 调用 matabinit 困 数 。 

使 用 MLAutoStart 自动 户 动 ,如果 根据 上 默认 提示 安装 和 注册 Excel Link， 则 Exeel Link 和 和 
MATLAB 在 每 次 启动 Exeel 时 将 被 自动 启动 。 如 果 选 择 手 工 户 动 ， 则 使 用 matlabinit 初始 化 
Excel Link 并 启动 MATLABR。 

使 用 MLCIose 在 不 停止 运行 Excel 的 情况 下 停止 运行 MATLAB， 并 使 用 MLOpen 或 
matlabinit 重 户 MAJTIAB . 


2. 数据 管 运 函数 
Excel Link 提供 了 9 个 数据 管理 函数 在 Excel 和 MATILAB 之 间 复 制 数 据 并 从 Excel 运行 
MAILAB 命令 ， 





二 inatabfen 对 于 给 定 的 Excel 数据 运行 MATLAB 命令 。 

e inatiabsub 对 于 给 定 的 Exeel 数据 运行 MATLAB 命令 并 指定 输出 位 图。 
MLApPpendMatrixz 将 Excel 工作 表 中 的 数据 创建 或 添加 到 MATTAB 施 阵 。 

e MLDeleteMatix 删除 MATLAB 和 矩阵 。 

# MLEYalString 运行 MATLABR 命令 。 

ee MLGetMatrix 把 MATLAB 和 矩阵 的 内 容 写 到 Exeel 工作 表 ， 

es MLOetVar 把 MATLAB 矩阵 的 内 容 写 到 Excel VBA 变量 中 。 

e MLPutMatrix 用 Excel 工作 表 中 的 数据 创建 或 覆盖 MATLAB 德 阵 。 

e MLPutwar 用 Exeel VBA 变量 的 数据 创建 或 夏 盖 MATLAB 和 失 阵 。 


除了 MLGetVar 和 MLPutyar 以 外 , 其 他 函数 都 可 以 作为 工作 表单 元 公式 使 用 或 在 宏 中 被 
调用 。MLGetyar 和 MLPutyar 函数 ， 只 能 在 宏 中 调用 ， 而 不 能 作为 工作 表单 元 公式 使 用 。 


“239。 





10.2.4 ”技巧 和 提示 


当 Excel 函数 返回 一 个 值 时 ，Exce Link 完成 一 次 调用 。 在 使 用 Excel Link 时 请 注意 直面 
一 些 问 题 。 

1， 语 法 

[12 Excel Link 的 函数 名 对 大 小 写 不 敏感 ， 即 MLPutMatrix 和 mlputmatrix 是 相同 的 。 

2) MAILAB 的 冰 数 名 与 变量 名 对 大 小 写 敏 感 ， 即 BONDS, Bonds 和 bonds 是 3 个 不 同 
的 MAILAB 变量 。 标 准 的 MATLAB 函数 名 是 区 分 大 小 写 的 ， 如 plet(f)。 

《3) 工作 表 公 式 用 + 或 = 开始， 如 : 

=IDijputmnatrx("a ,C10) 

《4) 在 工作 表 公 式 中 ， 把 函 效 变量 用 小 括号 括 起 来 ， 在 宏 中 ， 在 函数 名 和 第 1 个 变量 之 
间 留 一 个 空格 。 

(5) 在 大 部 分 Exeel Link 函数 中 可 以 直接 或 间接 指定 一 个 变量 名 称 变量 。 

《6) 直接 指定 一 个 变量 和 名， 用 双 引 号 把 它 搬 起 来 ， 加 MLDeleteMatrix("Bonds")。 

《73) 用 一 个 没有 引号 的 变量 名 称 参 数 进行 间接 引用 ， 函 数 评价 变量 的 内 容 ， 以 获取 变量 
名 。 变量 必须 是 一 个 工作 表单 元 地 址 或 范围 名 称 。 

《8)》 一 个 数据 位 置 变量 必须 是 一 个 工作 表单 元 地 址 或 范围 名 称 。 数 据 位 午 变 量 用 不 同 引 
号 括 起 来 (MLGetMatrix 除外 ， 和 它 有 一 个 惟一 的 变量 提示 )。 

(9) 数据 位 置 变 量 可 以 包括 一 个 工作 表 数 目 ， 如 Sheet3! B1: C7 或 Sheet2! OUTPUT。 


2， 工 作 表 

《1) Excel ELink 函数 作为 工作 表 公 式 成 功 运行 以 后 ， 单 元 包含 0 值 。 执行 函数 时 ， 单 元 会 
继续 显示 输入 的 公式 。 

《2) 假设 在 Excel 的 “工具 ”菜单 中 单 击 “ 选 项 ,..” 选 项 ， 然 后 在 打开 的 “选项 ”对 话 
框 中 选择 “编辑 ”选项 卡 ， 在 该 选项 卡 中 选择 “ 按 Enter 键 后 移动 ” 核 选 框 。 激 活 的 单元 在 操 
作 完 成 时 改变 ， 为 长 时 间 的 操作 提供 一 个 有 用 的 确认 。 

《3) 建议 用 自动 化 计算 模式 使 用 Excel Link。 如 果 用 手工 计算 模式 使 用 MLGetMatrix， 则 
在 单元 中 输入 函数 ， 并 按 下 F9 键 运行 它 。 在 这 种 情况 下 按 下 F9 键 还 可 以 重新 运行 其 他 工作 
表 函 数 并 生成 不 可 预测 的 结果 。 

(4) 要 想 在 工作 表 中 重新 计算 Exeel Link 通 数 ， 单 击 F2 键 ， 然 后 回 车 ， 可 以 重新 运行 每 
个 函数 。 

(5) 单 击 F9 键 ， 工 作 表 只 影响 Excel 衣 数 〈 它 返回 一 个 倡 )， 不 对 Excel Link 函数 进行 
操作 ， 

《6) 要 使 Excel ELink 函数 的 重新 计算 能 自动 进行 ， 将 它 诡 加 到 值 发 生 改 变 的 单元 中 ， 如 ; 

=MLPutMatrix("bonds"D1:O26)+C1 

(7) 单元 C1 中 的 值 发 生 改 变 时 ，Excel 重新 运行 MLPutMatrix 函数 。 注 意 ， 不 管 怎么 样 ， 
不 要 产生 死 循环 。 

(8 BEBxcel Link 函数 希望 有 Al 类 型 单元 表 的 单元 引用 。 在 Excel 中 ， 在 “工具 ” 葬 单 中 
单 击 “ 选 项 ,..” 选 项 ， 打 开 “ 选 项 ”对 话 框 ， 选 择 “ 常 规 ” 选 项 卡 ， 然 后 选择 “Al 单元 引用 
= 2400。， 








9》 如果 在 MLGetMatrx 中 使 用 单元 地 址 ， 并 在 以 后 插入 或 删除 行 或 列 ， 或 把 函数 移动 
或 复制 到 另 一 个 单元 ， 则 编辑 变量 以 更 正 地 址 .。 ExcelLink 不 自动 在 MLGetMatrix 中 调整 单元 
地 址 。 

《10) 在 工作 表单 元 中 直接 输入 Exeel Link 蛆 数 ， 不 要 使 用 Exceel 函数 大 师 〈 它 会 生成 不 
可 预料 的 结果 )。 


3， 宏 

《1) 用 Excel Link 函数 创建 宏 ， 必 须 首 先 注册 Excel， 以 便 引 用 源 于 Excel Link 插件 的 函 
数 。 从 Visual Basic 环境 中 拉 下 “插入 ”菜单 并 选择 “模块 "。 打开 “模块 ”页 时 ， 打 开 “ 工 
上 有 具 ”菜单 并 在 “引用 ”对 话 框 中 选择 “引用 ,…” 选 项 。 选 择 “excllink.xla” 并 单 击 “ 确 定 ” 按 
钮 。 用“ 浏览..,” 按 钮 查找 “exelink.xla” 文 件 。 

《2) 如 果 在 宏 过 程 中 使 用 MLGetMatix ， 在 命令 行 中 ，MLGetMatrix 后 面 输 入 
MAILABRequest。MATILABRequest 初始 化 内 部 Bxcel Link 变量 并 使 MLGetMatrix 可 用 ， 如 : 


Sub Get_Range 太 站 
MLGetMatrixz“ 和 上”,，“Range 上 ” 
MIATLABRequest 

End Sub 


(31) 除非 宏 函 数 从 过 程 中 调用 ， 不 要 在 室 函 数 中 包括 “MATLABRequest”。 


4， 数 据 类 型 
Excel Link 只 控制 MAILAB 二 维 数值 数组 。 一 维 字符 数组 〈 字 符 串 ) 和 只 包含 字符 串 的 
二 维 单元 数组 。 它 不 能 用 于 MAILAB 多 维 数组 、 结 构 或 包含 字符 以 外 数据 的 单元 数组 。 


5， 日 期 

默认 的 Excel 日 期 从 1900 年 1 月 1 日 开始 ,而 MATILAB 的 日 期 从 0000 年 1 月 1 日 开始 
这 样 ，1996 年 5 月 1 日 在 Excel 中 是 35200， 在 MATLAB 中 是 729160， 相 差 乓 3960。 如 果 
在 MAILAB 计算 中 使 用 日 期 数字 ， 将 Exeel 日 期 换 为 MATLABR 日 期 时 要 加 上 常量 693960。 
如 果 使 用 的 是 可 选 的 Excel 1904 日 期 系统 ， 则 常量 是 695422。 


6， 保 存 工作 表 

(1) 打开 包含 Excel Link 函数 的 Excel 工作 表 时 ，Excel 试图 从 下 向 上 、 从 右 向 堪 运行 该 
函数 ， 这 样 ， 可 能 会 生成 单元 错误 信息 〈#ACOMMANDI3NCONEXISTI 等 )。Exeel 常会 发 生 这 
种 情况 。 解 决 这 个 问题 ， 只 需要 简单 地 忽略 该 信息 ， 关 闭 所 有 MATLAB 图 形 窗 口 ， 并 单 者 
F2 键 ， 以 正确 的 秩序 等 次 重新 运行 一 个 单元 函数 ， 然 后 回 车 。 

(2》 如 果 保 存 包含 Bxcel Link 函数 的 Excel 工作 表 ， 以 后 在 不 同 的 计算 机 环境 下 打开 时 ， 
则 excllink .xla 捕 件 将 位 于 不 同 的 位 置 ，Exeel 可 能 会 显示 一 个 信息 框 ， 提 示 是 否 重 新 建立 链接 。 

《3) 在 对 话 框 中 单 击 “ 否 ”按钮 ， 然 后 在 “编辑 ”菜单 中 选择 “链接 ,.,” 选 项 。 在 “ 链 
接 ” 对 话 框 中 ， 单 击 “ 改 变 链接 ”， 在 窗口 中 的 <matlab>/toolboxjexlink 目录 中 找到 并 选择 
exXclinkxla， 然 后 单 击 “ 确 定 ”按钮 。Excel 在 改变 链接 时 运行 每 个 函数 。 当 链接 改变 并 且 函 数 
运行 时 ， 可 以 看 到 MATILABE 图 形 窗口 并 听 到 发 生 错误 时 的 蜂 鸣 声 ， 忽 略 它 和 何 。 回 到 “链接 ” 
窗口 ， 单 击 “ 确 定 ”按钮 。 现 在 工作 表 就 正确 链接 到 Excel Link 插件 了 。 或 者 不 用 “编辑 ” 菜 
单 中 的 “链接 .… ”选项 ， 可 以 编辑 每 个 受 影 响 的 工作 表单 元 中 的 链接 位 置 ， 以 显示 exellinkxla 
的 正确 位 置 。 


了 村] 


10.2.5 Exeel Link 使 用 实例 


【实例 1 回归 和 地 绩 报 千 ， 

加 上 好 和 井上 赋 拟 坷 广 让 试图 用 告 适 的 函数 来 插 述 变 树 过 间 的 芸 蒜 ， 即 建立 数字 模型 ， 
MATLAB 担 殿 了 很 刻 动 施 强 大 此 易于 使 用 的 答 阵 操作 符 和 函 数 来 简化 这 项 工作 ， 

末 例 运行 同一 实例 的 工作 表 版 本 和 室 厂 本 ， 它 使 用 Exeel 工 作 妻 姐 绩 有 显示 烙 据 。Eweel 
Link 函数 特 数据 复制 到 MATLAB 井 运 行 MATLAB 的 计算 和 综 图 函数 。 宏 版 本 还 把 答 山 数据 
巡回 到 芭 xweal 工作 表 牛 ， 

未 实例 ExliSampxls 位于 =matlahewnolboxeslink 目 好 下， 其 中 ，<matiabh> 为 MATLAB 的 
变 蓝 目 好 ， 

1， 工 作 雪 三 本 
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『 本 村 看 有 有 才 再 
个 EETE 本 村] 赤 中 ET 王 有 叶 | 昌 有 辣 用 丰 二 村 于 了 , ET 
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ERiaaaisspaw 





国信 让 alissagfals 误 件 


工作 囊 包 播 一 个 而 人 范围 ， 一 个 省 为 DATA 的 范围 ASC28， 它 包 舍 实例 的 数据 集 。 技 昭 
下 面 的 步 驯 进行 拘 作 ， 

Ti 惟 活 单元 嫩 ， 单 击 2， 炮 后 回 车 ， 运 行将 示例 数据 复制 到 MATLAB 的 Exeel Link 
函数 。 数 据 抹 包括 3 个 变量 的 35 个 现 亚 值 ， 弄 误 量 显示 ， 变 量 之 侣 存在 较 强 的 线性 基 系 。 

[ai 移 诗 重 元 加 单机 ， 回 车 ， 对 国 和 可 由 重 是 上 面 的 扩 作 ， 这 些 Eeel LimE 国 数 
让 WHATLAB 以 第 1 划 和 第 工 别 的 数据 时 应 的 变量 为 自 变 量 ,， 以 第 了 列 歼 据 对 虚 的 变量 为 因 迹 
凡 和 进行 回 归 ， 将 芭 建 一 个 包间 第 卫 列 监 据 的 一 钙 东 量 阅 和 一 个 新 的 3 列 短 阵 上 向， 吉 审 第 1 麟 
全 是 1 后 面 好 着 其 他 数据 ， 

13 运行 吾 全 中 的 函 克 ; 幸 函 监 用 MATLAB 的 “运算 符 计 算 回 暗 系数 ， 以 便 求 解 线 


二 业 帮 妆 


性 方程 Abelasy 这 样 一 个 系统 。 

it 41 过 和 下 中 中 的 曙 芍 。NMLATLAB 的 矩 莉 一 知人 重 科 法 生成 的 回归 娃 生 性 

45 运行 EEI9，E20 和 E21 中 的 函数 。 这 些 卫 数 将 康生 数据 与 体 进行 比较 ， 将 数据 按 升 
序 排 列 井 对 你 叶 用 相间 的 permutatiot， 并 创建 一 个 表示 观测 量 数目 的 标量 ， 

ft6) 二 行 语 寺 和 让 5 中 的 菌 鉴 。 客 们 用 于 氢 过 一 个 嘱 项 式 方 程 ， 丙 1 伍 函数 生成 一 个 五 
阶 包 项 起 palyval， 妨 后 计算 每 个 监 据点 上 孝 项 式 的 结果 ， 确 定 拟 合 的 精度 fnewfig， 

[7] 运行 E28 中 的 函数 。MATLAB 的 lot 本 数 用 图 带 显 示 原 姑 数 据 【 带 圈 1， 回 归结 果 
【 庆 红 线 ) 和 事项 式 结果 1 实 归 线 )， 井 添加 图 例 ， 如 图 10-10 所 示 。 






而 本 下 
ni 
下 页 丰 站 机 夯 - 吕 面 王 到 





转 10.i 加 对 了 曲直 氢 香 晴 时 
字 宕 版 本 
要 试用 本 例 的 志 数 据 事 版本， 在 ExliSamps 中 音 击 Sheet2 选项 卡 ， 
激活 单元 A4， 但 不 杜 送 行 ， 
划 元 A4 调用 二 ComeFit， 它 可 以 从 Vimaal Basic 环境 中 进行 制 试 ， 吉 图 14411 所 未 ， 


- 





和 


- 让 训 乓 和 | 


本 1 让 二 EGFReEiT 





打开 未 覃 雇 时 ， 在 “工具 ”下 拉 菜 单 中 选择 s 刀 | 用 ...* 过 硕 ， 打 升 “ 引 用” 对话 棋 ， 在 
入 对 话 框 申 选择 “ellink.gia” 棱 造 枢 。 

回 到 Shes 信 中 的 Ad4 单元 ， 技 下 了 肥 链 ， 然 后 加 车 ， 示 行 CurveEFit 和 二。 壶 运行 工 作 表 版 本 
中 第 ，1Y 些 到 稍 【7) 步 相同 的 函 考 【顺序 稍 有 不 同 )， 包 括 图 形 绽 制 。 另 外 ， 官 还 将 既 过 排 
序 的 原始 数据 中， 对 应 的 国 归 数据 你 和 专项 数 捧 newfit 复制 到 工作 表 中 《CutveFit 志 中 报 后 
3 沾 MLOaMatrnix 函数 特 数据 复 制 到 Exeel 工作 囊 )， 如 图 10-12 所 志 。 






图 1 二 放 后 的 结果 
示例 完成 以 后 ， 落 闭 图 形 宝 口 。 


第 11 章 MATLAB 与 SPSS 接口 


11.1 SPSS 软件 


SPSS 四 件 是 目前 性 界 上 有 名 的 统计 分 析 轼 件 , 官 县 有 完全 Windnwx 风格 的 界 而 ,在 很 少 
依 束 命 令 操 作 的 情况 下 可 以 实现 数据 导入 ， 数 据 预 处 理 ， 统 计 分 析 ， 蛤 图 和 报表 输出 等 功能 。 
谅 软 忻 还 有 自己 的 VBA 语言 ， 可 以 在 COM 意 文 上 与 其 他 软件 通信 ， 软 件 的 主要 工作 环境 如 
由 及 芝 。 


一 ”一 -一 一 





峡 人- 瑟 5 于 十 而 窗口 
11.2 SPSS 中 的 对 象 


在 SPSS 的 较 高 版 本 中 ， 可 以 通过 内 帮 提 供 的 SaxBasie 脚本 语 过 早 台 自己 原来 的 Syotuax 
命 他 程序 进行 二 绽 间 监 。SaxBasie 语言 实际 上 是 并 个 于 WandB 二 这 。 记 EGGSE 上 人 和 以 及 EAXeel， 
AtOCAD ,Maplnfo Geakiedia 十 应 用 程序 中 Bie 语 言 的 一 种 次 户 语 育 一 一 全 国 六 (人 Ga] 本 
Er 上 APplicatinni 利用 它 。 直 于 自动 化 机 制 ， 可 以 实 弄 与 同 桦 支持 该 技术 的 其 他 专业 庶 用 程序 
之 间 的 通信 , 如 可 以 用 Word 来 输出 统计 结果 , 可 以 与 地 理 信 息 系 统 软 件 如 Maplnfo, GeoMedia 
之 间 进 行 数据 传输 和 分 析 等 。MATLAB 支持 自动 化 机 制 ， 困 此 ， 通 过 $PSS 提供 的 一 系列 对 
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象 ，MATLAB 可 以 与 SPSS 实现 监 据 通信 。， SPss -起 开发 的 主要 坊 程 环境 一 一 野 本 编辑 器 如 
轩 1 了 所 未 ， 
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tLALLELEnaiiane 己 Fa 
RE 





“而 二 PE 让 计 二 直上 有 证 和 币 二 而 二 本 让 本 全 本 4 十 本 二 站 证 二 古 十 e 玫 ah ai 醒目 让 本 直 中 计生 
让 民 二 下 Th 
日 三 卫 站 站 直 慰 必 | 二 目下 4 [人 inrrEi [天 
让 4 号 用 Lailiaa = 晤 二 | oj 二 [ELTE 
到 [maoc FEEDCSNPEEY 二 |-ERCSASCENERT 下 让 LE 人 es 


放 汪 有 省 语 有 二 | 玫 上 生 La 苞 二 贞 RS “ 拓 有 证 
汪 本 个 于 刘 量 人 ] FameFtpeslraniEianieaabari 


面霜 马 而 


立 -1 有 肌 本 雹 辑 器 
号 ES 证 的 对 芝 县 精 机 可 以 用 图 11-3 囊 示 ， 





图 023 SP 对象 的 村 于 结构 


从 围 1 中 可 以 看 出 ， 并 不 是 所 有 对 象 都 在 一 个 屋 侈 上 ， 部 分 对 象 包 舍 在 其 他 对 象 中 。 
位 于 灯 形 图 最 项 端的 是 Applieation 对 银 ， 它 代表 SPSS 自身 ， 所 有 其 他 对 铺 帮 在 Application 
对 惫 之 下 。 

稍 卫 屋 中 上 搬 所 相对 委 ， 


二 一 二 夺 地 











Options 对 象 利用 该 对 象 可 以 为 输出 浏览 器 、 图 表 和 数据 等 设置 选项 。 
Documents 对 象 ”提供 数据 编辑 器 、 语 法 文档 窗口 、 输 出 浏览 器 和 草稿 文档 窗口 等 四 
个 窗口 的 属性 和 操作 方法 。 

SPSs Info 对象 提供 SPSS 的 一 些 必要 信息 。 

CSApplication 对 象 提供 与 网 络 有 关 的 对 象 操 作 。 

从 图 11-3 中 还 可 以 看 出 , Decuments 对 象 及 其 所 包含 的 对 象 是 所 有 对 象 中 最 重要 的 对 象 ， 
它们 几乎 囊括 了 SPSS 主要 工作 窗口 中 的 所 有 工作 内 容 。 转 轴 表 、 图 形 和 交互 图 是 比较 复杂 的 
对 象 ， 各 自 又 有 很 多 子 对 象 ， 从 各 个 部 位 和 方位 来 对 父 对 象 进行 描述 。 





11.3 MATLAB 调用 SPSS 


MATLAB 调用 SPSS 时 是 把 MATLAB 作为 客户 端 应 用 程序 来 处 理 的 。 这 时 ， 利 用 
MAILAB 提供 的 actxserver 函数 ， 可 以 把 SPSS 程序 作为 自动 化 服务 器 打开 。 在 MATLAB 的 
命令 窗口 中 键入 ; 

SSS=actXSEIVer spSS.application') 
其 中 , “spss.application” 为 SPSS 的 ProgID 值 。 该 语句 的 运行 结果 为 : 
spss = 
COM.spss.apphlication 

可 见 ，SPSS 本 身 是 一 个 COM 对 象 。 在 命令 行 中 键入 

inyoKkefSpsS) 

显示 SPSS 对 象 《 指 图 11-3 中 的 顶层 对 象 一 Application 对 象 ) 的 所 有 方法 名 和 方法 参 
数 , 如 下 所 示 。 其 中 , 等 号 后 面 的 小 写 单词 表示 方法 返回 值 的 类 型 , 如 handle 表示 句柄 ，string 
表示 字符 串 ，void 表示 没有 返回 值 等 。 

OpenOutputDoc = handle OpenOutputDocsfhandle, stting) 
OpenSyntaxDoc = handle OpenSyntaxDocfthandle, string) 
OpenDataDpoc = liandle OpenDataDoc(handje, string) 
NewoutputDoc = handle NewoDutputDocfhandle) 

NewSyntaxDoc = handle NewSyntaxDocfhandle) 

NewDatapoc = handle NewDataDocfthandje) 
GetDesignatedOutpurtDoc = hahdle GetDesignatedOuntputDocthandie) 
tetDesignatedSyntaxzDoc = handle GetDesignatedSyntaxDoc(handle) 
ExecuteCommands = void ExecuteCoinmandstliandie， string, bool) 

了 ExecuteIncelude = void ExecuteJnclhadefthandle, string, bool) 

HBasy = bool JPBusythandle) 

Quit = voidq Quit(handle) 

Intermpt = void mmtermptthandley) 

SpssInfo = handie $pssImfothandle) 

刀 OPpenDocument = bool OpenDocuiment(handile, string, bool 
GetSPsSPath = string GetSpSSPath(handle) 

ToolbarVisible = bool ToolbarVisible(handjle, stringy) 
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辣 PEnDNS 人 De 三 村 本本 让 人 全 让 DLR 访 丰 
Ne 半 DirtaRDee 三 村 和 二 二 网 交加 上 在 DeefaaEd] 
站 人 站 让 二 二 TaaEeed[r 汪 证 一 和 丰 吉 He 人 汪 本 站 二 CIDRefb il 
富有 有 ta 者 E 直 (站 一 亲 有 区 京 ER 六 UP 二 人 袜 ) 
我 们 试 着 调用 其 中 的 OpenDataDee 方法 ,打开 一 个 SPSS 数据 文件 Employee datiav， 它 
位 于 S5SS 恩人 忻 的 安 整 目录 下 。 在 赣 专 窗口 棒状 钾 入 ; 
jiDataDwc= 癌 PenIDHELDNETSSR EEC 相让 e 辣 呈 大 局 瑟 四国 0yee di 人 
旱 果 如 下 所 未 
ojDatauDee 三 
Tierface ED .DPCHLOnCPETDaiaDOG 
操作 已 经 完成 ， 但 我 们 并 没有 看 到 打开 的 SPSS 败 据 文 件 ， 用 pet 函数 查看 对 象 的 Visitle 
属性 ， 看 该 对 象 是 不 是 蜀 若 起 来 了 。 在 盒 他 行 链 六 
EetfobjDataDoc,Visible'} 
早 果 为 ， 
于 看 赴 于 
站 
可 见 ， 打 开 的 数据 妇 件 确实 是 陷 藏 起 来 了 ， 它 的 Visible 属性 值 为 0， 烈 在 希望 读数 据 去 
性 可 和 见 ， 用 十 画 数 进行 设置 ， 即 
setlobijDataDaoec,Wisible'.1) 
打开 的 数据 冯 件 马上 就 是 示 出 来 了 ， 如 图 11- 二 所 示 。 




















| 
本 芭 号 沁 = 可 二 村 二 到 三 辣 二 车 下 到 于。 













1H1 
一 呈 : 
一 放 人 
_ ELSE 
人 和 | 一 一 一 
-一 芝 = 一 一 - 一 | | 
于 小 1 二 
十 [ ET] 区 王 
可 一 SEEEEREEEE 1 
吾 是， - 囊 本 
证 = 到 一 村- mi 2 = 一 
1 一 旦 ] 1 一 一 me 上 县 
站 二 上 和 和 一 = ; 
1 有 训 ER 下 
由 | 训 i TH | 汪 
本 可 1 一 可 ET 本 
| E | - 1 昌 
本， 可 枉 辆 | 审 ER FE 
[ES | [LT PE 天 本 一 -一 







图 i-4 星 示 林 证 的 数 竹 训 件 
办 细 到 这 里 ， 我 们 已经 能 甸 在 MATLAB 中 获取 和 设置 SPSS 对 象 的 属性 ， 调 用 它们 的 方 
法 了 。 所 以 ， 从 理论 上 讲 ， 你 已 经 能 驶 在 不 打开 SPSS 的 情况 下 在 MATLAB 中 章 受 SPsS 的 


二 全 中 月 二 


服务 了 。 这 些 服 务 项 目 包括 导入 数据 ， 统 计 分 析 。 蚂 制 统 计 疼 .给 制 羡 观 的 二 绝 或 三 维 变 互 


图 报表 输 出 ， 等 等 ， 


11.4 SPSS 调用 MATLAB 


现在 讨论 9PSS 调用 MATLAHB 的 问题 ， 即 MATLAB 作 趣 服 务 器 贞 庶 用 程序 时 的 孝 据 通 
情 问 题 ， 与 WATLAB 调用 SS 一样 在 方法 上 从 上 辣 带 用 了 靖 而 VE 与 MAILAE 通信 的 故 
转 ， 国 官 们 都 是 在 AstweXg 自动 化 这 个 机 制 上 进行 通信 的 。 所 科 间 的 是 可 面临 8PSS 这 样 一 


在 具 性 情况 ”， 

SBSS 要 殿 了 一 种 称 汶 567 站 记 的 肢 志 请 
言 ， 利 用 读 语 言 实现 对 MATLAB 的 调用 。 

正面 站 音 一 个 例子 进行 疗 细 * 在 SPSS 中 
提供 两 个 二 元 一 多 方程 以 司 ， 调 用 MATLAB 
的 “” 搬 作 符 求解 方程 组 ， 艇 后 在 5655 界 
面 上 显示 亢 称 组 的 骨 ， 

首先 建立 程序 界面 。SPSS 提供 了 一 站 出 
较 简 童 的 对 话 编 毗 髓 ， 如 图 145 所 示 。 到 用 
读 蝙 辑 器 ， 可 以 俺 在 HB 中 孝 样 比较 寡 易 地 
机 计 国 弄 用 疡 界面 ， 幸 例 的 界面 和 四 团 1 抽 
未 在“ 方 种 1” 和 “方程 2” 方 框 中 的 误 未 
框 中 三 值 ， 耸 别 轮 宣 黄 个 鹿 程 的 革 时 项 和 和 洛 
数 戎 。 在 下 面 的 充 来 框 中 显示 问题 的 解 。 对 
话 框 制作 和 SaxBasi: 语 音 主 法 每 方面 的 细节 


内 将 这 里 乎 于 谈 ， 可 具 见 Sps8 文档 或 相关 书生 ， 





园 1 芋 PS 本 失 供 的 用 疡 对 话 据 旺 器 卡 面 


利用 对 话 编 辑 器 设计 界面 的 工作 完成 以 后 ， 保 存 并 退出 ，SPSS 二 在 脚 夫 编 辑 器 中 自动 生 


碟 相 甘 借 局 ， 姑 图 1 所 未， 





靖 攻 志 一 应 方向 二 的 师 * iaiagFent， we 


多 有 所 二 且 让 二 


昌 本 "于 


| 


图 下 号 直 动 生 成 对 语 框 的 全 男 











在 脚本 编辑 器 中 继续 完成 下 面 的 代码 输入 : 
Dim ohjMATLAEB As Object 


ab Niain 

Begin Dialog UserDialog 480,287," 求 二 元 一 次 方程 组 的 解 ".DialogFunc 
PuashBatton 120,245,80.21." 确 定 ".ok 
PushBatton 280,245,80,21," 取 ” 消 ",.cancel 
GroupBox 50.49.400.556, "方程 1 .GroupBoxl 
TextEBDX 120.70.60.21., 攻 IEia 
TextBox 240.70.60,21 .EtPtb 
TextBox 370,70,60,21,.bctFIc 
CiroupBox 50.119,.400.56," 方程 2",.GronpBox2 
TextBeox 120,140,60.21,txtF2a 
TextBeox 240,140.60,21 ,txtF2b 
TExtBox 370,140.60.21,.txtF2e 
TExt 50,14.300,14,， 方程 格式 ，a#x+b*y=c",Textl 
TextBox 130,.196.290,.21,.ExtAns 
Text $0,196,70,14, "方程 的 解 ".Text 
Text 80.77,20.14,，a Text3 
Text 200.77.20.14, b "Text 
Text 330.77.30,14e" Text 
Ext 830,147.20.14，a .Text6 
Text 200,147,.20,14,"b" Text7 
Text 330,147,20,.14,"e" ,Text 

Enad Dialog 


Dim dg As UserDialog 
Dialog dlg 


End Su 


Function DiafogFunco%(Dlgitem$ Action96, Suppwaiue%6) 
Select tase 点 CHiota 5 
Case1T1 对 话 框 初始 化 
DlgText "brtE1a","3" 
了 区 TeXt "ttPF1D" 
DIgText "txtFie 10" 
DIgText "txtF2a 3" 
也] 作 Text “btF2b ”多 " 
DllgTeXt "ttE2C" 52" 
Case2' 控件 的 值 改变 或 控件 被 单 击 
Seleet Case DlgJIyem 
Case “OK" 
Dinm fla As Sirimg 
Dim 世 b As Shing 
Dimm flc As String 
Dim fa As Strinmg 
Dim f2b As Strin 区 
JDim 这 c As Siring 
Dirm fns 上 As String 


“ 230， 


[天 机 有 国生 总 光 tiTEE 
mms AA 才 rin 


仙 二 加 基站 训 YE 
人 iib=DigTeati"tatFlbn) 
人 es| 放 TE 二 [ET 
亿 asDIETE IE 
RhDigTewiC LE 1 
Pac=DigText "trtE2c" 


Fns 和 enfi 基 但 古 55 证 人 pb 于 必 人 而 4 古人 h 基 中 
fsB= 人 攻 目 E 古 号 贡 人 本 小 
fans= 和 ms 屿 用 中 funsB 


bjMATLAA 开 =CreuleCbjeeer srmailabh 二 picafigi "| 
一 语 Teat ERLAns CSHabjMATILA 节 ,Rescue 和 ms 


15 和 Fu = TUE 
HE ETEE 
SetnhjMATLAB=Nething 
DialogFunec=False 
全 id Seleci 
人 md 号 ee 
En Puaedl 
运行 程序 ， 在 弹出 的 对 话 杠 中 和 办 六 两 个 方程 的 参数 ， 单 击 “ 确 定 ” 技 钮 ， 在 “专程 的 解 “ 
误 标 人 眶 中 显示 方 守望 的 解 ， 姑 图 11-7 所 示 ， 






图 -7 杏林 运行 婧 蜗 


适 行 上 面 代 三 以 后 ， 猎 打 开 MATLAB 的 南 专 窗口， 福音， 只 有 击 地 窗口 ， 设 有 完整 东 面 。 
要 最 示 完 验 梨 面 ， 在 命 专人 窗口 性 六 下 面 的 辣 他 并 加 车 即 可 ， 


吉 S 攻 1 及 
如 果 在 调用 MATLAB 的 过 程 中 和 不 想 打 开 它 的 异 面 ， 和 将 objMATLAB 对 象 的 Visible 属性 
值 设置 为 和 就 可 以 了 ,好 
站 时 AT 和 再 而 本 本 | 基 = 由 


aa | 


第 12 章 COM 生成 器 (COM Builder) 


从 站 S 版 未 开 嫩 ，MATLAE 提供 了 COM 生成 器 。COM 生成 只 提供 了 实现 MATLAB 独 
衣 库 用 的 一 种 新 进 径 ， 它 雌 把 MATLAB 开发 的 算法 做 成 组 件 ， 这 些 组 件 作为 于 立 的 COM 对 
象 ,可 以 直接 被 Viwnal Basic, Visual C++ 或 其 他 支持 COM 的 语言 所 引用 。 本 章 结 育 Wisual Basic 
语言 齐 甸 MATLAB 的 COM 生 应 加 的 使 用 方法 。 通 过 创建 简单 的 代码 模 拨 ， 可 以 将 COM 生 
成 器 组 件 障 单 地 保 成 到 Visual Basie 工程 中 去 ， 代 码 醒 块 中 的 函数 和 /或 过 程 贰 载 必 此 的 组 伯 ， 
调用 必要 的 十 千 井 处 再 所有 钵 误 ， 


12.1 创建 COM 生成 器 组 件 


用 MATLAB COM 生成 回 创 建 COM 诅 件 是 一 个 简单 的 过 程 ， 只 湖村 4 个 步 对 ， 即 创建 
工程 .管理 财 文 件 和 MEX 立 件 。 生 成 姐 件 ， 打 己 币 分 发 组 件 ， 
12.1.1 创建 工程 


在 WMATLAE 古村 行 中 办 大 耐 舍 eomiiool， 打 开 “MATLAB COM Builder” 对 千 框 ， 妇 图 
赋 -1 岳 示 。 管 是 MATLABCOM 生成 器 的 主要 工作 环境 。 





转 121 村 和 mLABCOM 生 威权 让 宣 日 
在 “File” 菜单 中 韦 择 “New Praject” 选 项， 打开“New Project Settimgs” 对 话 框 ， 如 图 
12-3 所 未。 
在 “Component ntmew” 文 本 框 中 办 六 蛆 件 【DLL 文件 ) 的 若 称 ， 输 入 组 件 名 以 后 ， 生 感 
颈 自 动 首 “Class iame” 垃 率 导 中 输入 与 蛆 件 各 相同 的 名 称 ， 用 疡 可 以 根据 需要 进行 修改 ， 
注意 ， 奈 痊 组 伞 雪 机 类 专 可 以 相同 ， 位 组 件 名 当 能 与 任何 岗 误 性 或 MIEX 灾 件 的 详 御 襄 
相同 ， 


证 中 是 齐 二 


若 要 把 类 球 加 到 组 件 中 ， 则 在 “Class mame” 广 本 框 中 
杀人 只 洗 ,并 昔 谭 Ad 斌 > 要 锂 , 稚 加 的 类 覃 显示 在 “Classek” 
列表 椎 中 。 

在 Enijeciwemwion” 文 本 要 中 世 畦 组 件 的 版 来 导 ， 蒜 认 
时 组 梓 版 末 号 为 1.0， 

“Projeet 则 rectory ”文本 框 指定 在 编 详 和 打 皮 懂 型 吧 , 工 
程 和 相 鞭 喜 性 的 存 故 位 置 。 工 程 目录 由 当前 目录 和 组 忻 兆 自 
动 钥 台 生 感 

如 果 选 择 “Cerealeasingleion MCR” 核 选 棋 ， 使 用 给 件 
时 内 创建 一 个 WER 灾 例 ， 

可 以 剧 达 编 坪 槛 型 的 一 个 调 拭 版 本 ， 间 雄 在 其 用 
MATLA 编译 器 时 指定 详 晤 输出 , 访 调 试 版 本 一 方面 双 许 中 
踪 , 使 出 钼 报告 显示 册 玄 件 和 发 生 错误 的 行 , 所 有 地 踪 依 息 
昌 二 进行 报告 ， 章 时 乎 进行 调试， 则 得 下 到 MATLA 代 侣 
中 改 生 异 强 的 个 时 的 指示 。 另 一 右面 ， 它 如 许 使 用 Wisoal 
Siudio 调试 器 进行 完 吾 的 调 荆 ， 

设 费 亮 以 后 ， 单 雷 “ 口 K” 技 全 它们 就 虑 汐 工 程 工 作 





曾 了。 下 卫 本 前 攻 
对 请 柜 


室 间 的 一 部 分 并 与 语 加 到 工程 中 的 所 有 M 文件 和 MEX 文件 一 起 爬 保存 到 工作 空间 中 。 一 个 
略为 ceompeonent_muimes .chi 的 工程 误 件 缸 自 动 需 而 到 工程 目录 中， 


12.12 管理 M 文件 和 MEX 文件 


创建 工程 以 后 ， 生 成 名 主 窗口 中 的 “Projeet” ,Build” 和 “Component” 等 3 个 革 单 就 


变 为 可 用 ， 如 图 12.3 所 示 ， 


As 


图 43. 选 重 梳 喜 舌 的 主 窗 蝇 






划 击 “Add File” 技 乌 或 从 “Prajeet” 攻 单 中 选择 “Add File.,,” 选项， 可 向 工程 中 于 加 


M 文件 和 / 勤 MEX 去 人 忻 。 一 岂 只 能 添加 一 个 交 件 ， 


单 击 “Remmove" 按钮 或 内 “Projeet” 药 昔 中 选择 “Remowe" 选项 ， 可 刷 除 所 有 选 定 的 M 


二 了 号 本 直 











文件 或 MEX 文件 。 可 以 选择 多 个 文件 ， 然 后 将 其 一 次 删除 。 

选择 M 文件 以 后 单 击 “Edit” 按 钮 ， 或 从 “Project” 菜 单 中 选择 “Edit File..,” 选 项 ， 或 
直接 双击 M 文 件 名 ， 都 可 以 在 MATLAHE 编辑 器 中 打开 该 M 文件 并 进行 编辑 和 调试 。 但 不 能 
编辑 MEX 文件 。 


12.1.3 ”生成 组 件 

定义 工程 设置 并 洪 加 必要 的 M 函数 和 MEX 函数 以 后 ， 可 以 通过 选择 “Build” 菜 单 中 的 

“COM Object” 选 项 来 调用 MATLAB 编译 器 ， 把 中 间 源 文件 写 到 <projeet_dir>Aser 目录 中 ， 

将 必要 的 输出 文件 写 到 <project_dit>vdistrib 目录 中 。 

”Build Status ”面板 显示 生 威 过 程 中 的 输出 ， 通 知 遇 到 的 任何 问题 ， 出 现在 
<project_dir>viistrib 目录 中 的 将 是 一 个 DLL 文件 。 生 成 的 DLL 文件 自动 注册 到 系统 中 。 

选择 “Build” 菜 单 中 的 “Clear Status” 选 项 ， 清 除 “Build Staus” 面 板 。 生 成 过 程 的 输 
出 保存 在 文件 <project_dirbuild.log 中 .要 打开 该 日 志文 件 , 在 *Build" 菜 单 中 选择 “Open Build 
Log” 选 项 。 该 文件 提供 了 一 个 生成 过 程 的 记录 ， 在 清除 “Build Status” 面 板 上 的 内 容 以 后 ， 
可 以 参见 该 记录 。 


12.2 利用 COM 生成 器 组 件 编程 


12.2.1 给 COM 生成 加 组件 对 象 添加 方法 和 属性 


COM 生成 器 自动 将 M 文件 中 的 全 局 变量 转换 为 属性 。 全 局 变量 是 用 global 关键 字 声 明 
的 变量 。 当 有 一 个 经 常 使 用 ， 但 殷 少 变化 的 大 数组 时 ， 将 它 设置 为 属性 很 有 用 。 
下 面 的 例子 演示 在 短 阵 因 式 分 解 类 中 使 用 类 属性 。 本 例 开 发 一 个 类 ， 对 同一 个 矩阵 进行 
草 累 斯 基 分 解 、LU 分 解 和 QR 分 解 。 示 例 中 把 输入 和 矩 阵 作为 类 属性 保存 ， 这 样 ， 它 不 必 传递 
到 四 式 分 解 过 程 ， 
考虑 下 面 3 个 M 文 件 ; 
holeskym 
fanction [L] = Cholesky0) 
global 且 ， 
这 fisempty[A 访 
二 = 品 ; 
return; 








eni 
工 =chel(Ay》 


工 UDPpecemp. 如 
function [LU] = 工 UDecompn 
iopbal 上 各， 
计 fisempty(aA) 
工 = 吕 ; 
U= 少 
retuin， 
ed 
[LU] = ]afA); 
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GORDecoimp.m 
fanction [ 避 ,R] = CQRDecompO 
中 oba] A; 
让 (isempty(A 放 
包 = 昌 ; 
及 = 昌 ; 
Teturni 
end 
[QR] = grA 
这 3 个 文件 有 一 个 公共 的 全 局 变量 A， 每 个 函数 对 A 进行 矩阵 因 式 分 解 ， 并 返回 结果 。 
要 生成 类 ， 创 建 一 个 新 的 名 为 mymatrix 的 COM 生成 器 工程 ， 版 本 为 1.0。 添 加 一 个 名 为 
myfactor 的 类 到 组 件 中 ， 把 上 面 3 个 M 文件 语 加 到 类 中 并 生成 组 件 。 
使 用 下 面 的 Visual Basic 过 程 测 试 myfaetor 类 。 首 先 ， 在 Visual Basic 主 菜单 中 单 击 “ 工 
程 ”菜单 中 的 “引用 .…” 选 项 ， 利 用 “浏览 ”按钮 找到 并 选择 出生 成 的 组 件 。 然 后 运行 下 
面 的 过 程 。 它 创建 一 个 myfactor 类 的 实例 ， 并 给 属性 A 指定 一 个 Pouble 型 矩阵 ， 最后， 调用 
3 个 因 式 分 解 方法 。 
Snb TestFactorf) 
Dim xl To 2 1 To 2) As Double 
Dim Ce 上 As Variant L As Variant U As Variant，_ 
心 点 s Variant 及 点 s Variant 
Dim factef As myfactor 





On Brror GoTo Handle_Eror 
Set factor = New myfactor 
Xfl, ]) = 2 漠 
Xi .2)= 一 ] 间 
Xf2, 1 = 一] 条 
XI2, 2) 天 2# 
factaor. 和 一 X 
Call factetchelesky(l, C) 
Call facterludecormp(2, 志 , D) 
Call factorgqrndecormpf2. 避 , R) 
Exit Sub 
Handle_ Error 
MsgBox (了 他 Description} 
End Snb 


12.2.2 给 COM 生成 器 组 件 对 象 添 加 事件 


通过 简单 的 语言 标注 , COM 生成 器 支持 事件 或 回调 。 可 以 简单 地 提供 一 个 MATLAEB 六 数 ， 
将 其 作为 事件 的 原型 。 然 后 ， 在 客户 代码 (Visual Basic、C++ 等 ) 中 提供 一 个 该 函数 的 实现 。 

通过 将 路 碳 vent 标注 放置 到 代码 中 ， 可 以 把 MATLABH 函数 转换 为 事件 函数 。 当 把 相同 的 
函数 作为 COM 生成 器 对 象 的 方法 时 , 编译 器 为 该 方法 生成 一 个 外 调 接口 , 并 把 该 方法 当成 事 
件 。 这 个 外 调 接口 由 客户 代码 实现 。 

在 代码 中 使 用 回调 的 一 些 例子 包括 ; 


*255。 








e 在 长 时 间 的 计算 中 ， 给 客户 应 用 周期 性 的 同调。 例如 : 如 果 一 个 需要 mn 次 选 代 的 任务 ， 
可 以 通过 事件 处 理 ， 在 进度 条 中 为 每 次 迭代 做 出 显示 ; 
e 在 计算 还 没完 成 却 进行 后 续 失 作 时 给 出 警告 ; 
e 给 出 计算 过 程 中 的 当前 结果 ， 并 继续 计算 ， 
下 面 的 例子 在 连接 进度 条 的 过 程 中 使 用 回调 。MATLAB 函数 iterate 进行 na 次 和 迭代， 并 每 
隔 ine 次 迭代 激发 一 次 事件 。 当 函数 结束 时 ， 它 返回 一 个 单一 的 输出 。 为 了 模拟 实际 行为 ， 在 
主 循环 中 设置 一 次 暂停 这样， 每 次 渤 代 时 函数 等 待 1 秒 钟 ， 
MATLAB 数 iterate.m 和 progress.m 的 代码 如 下 所 示 ; 
iterate.im 
和 action 区 ] = jfteratefn,inc) 
站 本 始 化 工 
和 = 出 
%% 进行 屏 次 选 代 ， 每 隔 ine 次 进行 一 次 回调 。 
K= 必 
for 二 10 
K= 攻 + 1; 
让 Kk == ine 
Progressri]; 
大 = 站 ; 
ed 
%% 对 x 作 一 些 操作 
及 二 其 十 二; 
%% 暂停 1 秒 ， 恨 设 在 做 某 件 事情 
Pauset1 
end，, 


Progeses.I 
和 nction progress( 
% 兹 Yeat 

iterate 函数 进行 na 次 选 代 ， 并 每 隔 inc 次 和 迭代 调用 一 次 prfogress 函数 ， 将 当前 迭代 次 数 作 
为 一 个 变量 进行 传递 。 本 函数 在 MATLAB 中 运行 时 ，progress 函数 每 次 被 调用 时 显示 i 的 值 。 
假设 创建 了 一 个 COM 生成 器 组 件 ,， 它 有 两 个 作为 类 方法 的 函数 ,本 例假 设 组 件 具有 一 个 名 为 
myclass 的 类 ,生成 的 COM 类 有 一 个 iterate 方法 和 -一 个 progress 事件 。 本 例 中 事件 句柄 的 VB 
语法 为 

Sub aClass_progress(Byval [As Variant) 

其 中 ，aClass 是 一 个 用 于 实例 的 变量 名 。 素 件 函 数 的 所 有 输入 参数 都 使 用 ByVal 关键 字 ， 
为 了 使 过 程 可 用 ， 用 withEvents 关键 字 定 义 acClass 变量 。 

本 例 基 于 一 个 简单 的 VB 窗 体 进行 讨论 , 窗 体 中 有 3 个 TextBox 榨 件 ,一 个 CommandButton 
控件 和 一 个 PtogressBar 控件 。 第 1 个 文本 框 Textl 输入 迭代 次 数 ， 保 存在 窗 体 级 变量 N 中 ， 
第 2 个 文本 框 Text2 输入 回调 增 景 ， 保 存在 变量 me 中 ， 第 3 个 文本 框 Text 3 是 示 函 数 输出 ， 
单 击 命令 按钮 Command1， 运 行 类 的 iterate 方法 。 进 度 条 控件 Progress Barl 在 Progress 事件 
发 生 时 进行 更 新 。 
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' 窗 体 级 变量 


Private WithEvents afClass As myYclass 尖 实 例 
Private N As Long ' 迁 代 次 数 
Private Jmec 点 8 寺 Long ' 回 调 载 量 


Pnvate Suhb Form_Loada 
' 装 载 窗 体 时 ， 创 建新 的 myclass 实例 
Set aflass = New myclass 
' 初 始 化 变量 
N=> 
Inc=1] 
End Sub 
Prnivate Sub Textl_Change 
' 当 Textl 文本 拒 中 发 生 改 变 时 更 新 N 的 值 
Dn Rrror Resume Next 
NM = CLngCITEXt1 .Texty 
还 Er < 和 Then=2 
IN<2ThenN=2 
End Sub 
Private Sub Text2_ Change 
' 当 Text2 文本 框 中 发 生 改 变 时 更 新 Inc 的 值 
Dn Error Resurne Next 
Ince = CLngfIextz .Jexf 
IEBr <>0Theninc= 1 
IInce <=0Then Inc=1 
End Sub 
Private Sub Commaril_Click0) 
单 击 “Bxecute” 按 钮 时 运行 函数 
Dim x As Variant 
On Error Ge To Handle_Error 
初始 化 进度 条 
ProgressBarl.Min = 1 
ProgressBarl.NMfax = J 
ext,Texrt= 
' 选 代 瑟 次， 每 间 隅 mne 次 进行 回调 
aatiass,itefatefI, xDbiON CDhblinecyj) 
Textb.IExt = Format(xy 
Exit Sub 
HRandle_Error 
MsgBox (ErrDescrpbeon1 
End Sub 
Pavate Sub alass_progress(ByVal ji As Varianf) 
事件 句柄 ，jterate 函数 每 次 调用 progress 本 数 时 被 调用 。 
进度 条 贿 传 入 的 值 更 新 ， 并 前 进 
ProgressBarl.Value =i 
End Stub 


12.2.3 创建 类 实例 


调用 类 的 方法 以 前 ， 必 须 创 建 一 个 包含 方法 的 类 的 实例 ，VBA 提供 了 两 个 技巧 来 做 这 件 
事情 。 
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es _ CreateObjeet 函数 ; 
se New 运算 符 。 


1，CreateCbject 函数 

本 方法 使 用 Visual Basic 应 用 程序 接口 (API) 的 CreateObject 函数 创建 类 的 实例 ， 要 使 
用 本 方法 ， 希 要 定义 一 个 Object 类 型 的 变量 作为 类 实例 的 引用 ， 并 将 组 件 的 ProgID 作为 变量 
调用 CreateObject 函数 ， 如 下 屋 所 示 ， 


Function fofxl1 As Wariant xX2 由 5 Waranty 点 s Wariant 
Dim aClass As Object 


Cn Eror Goeto Handle Brtor 
aflass = CtfeateDbject( "rtycomponentmyclass,1 0 人 
' 调 用 aClass 的 革 些 方法 
Exit Function 
了 aile_Error: 
foo = Err.Description 
Bnd Function 


2，INew 运算 符 
本 方法 使 用 New 运算 符 创 建 类 的 实例 ， 在 使 用 本 法 以 前 ， 必 须 使 用 当前 VBA 工程 中 包 合 
该 类 的 类 型 库 。 要 做 到 这 一 点 ， 在 Visual Basic 编辑 器 中 选择 “Tools” 菜 单 ， 然 后 选择 
“References..…….” 选 项 ， 显 示 “Available References” 对 话 租 。 从 该 对 话 框 中 选择 必要 的 类 型 库 。 
下 和 面 的 例子 演示 如 何 使 用 New 运算 符 创 建 一 个 类 实例 ， 假 设 在 调用 本 函数 以 前 从 
“Available References” 列 表 框 中 选择 了 “mycomponeat 1.0 Type Library ”选项 。 
Funetion 训 o(x] AS Warianft, x2 和 5 Variant 点 s Variant 
了 im aClass 上 s ycomponentInyclass 
(Cn Error Ooto Fandjle Errot 
Set aClass = NEW mmycoiporient myclass 
气 调用 aclass 的 一 些 方法 ) 
了 Xi Rumection 
Handle_Error: 
foo = EDescription 
Engd Function 
本 例 中 ， 类 实例 定义 为 myclass， 完 整 的 表达 形式 为 <componentmame>.<class-namey， 它 
保证 在 当前 工程 的 其 他 库 中 包含 名 为 myclass 的 类 时 不 会 出 现 名 称 冲 穹 。 
两 种 方法 相 比较 ， 第 1 种 方法 不 需要 引用 VBA 工程 的 类 库 ， 使 用 更 灵活 ， 但 速度 慢 ; 第 
2 种 方法 可 以 获得 更 快 的 运行 效果 。 
在 前 面 的 两 个 例子 中 ， 用 于 方法 调用 的 类 型 是 一 个 过 程 的 局 部 变量 ， 它 为 每 次 调用 创建 
和 拆 印 一 个 新 的 类 实例 ， 一 个 规 代 方法 是 声明 一 个 模块 级 类 实例 ， 它 可 以 被 所 有 的 函数 调用 
和 重复 使 用 ， 就 像 前 面 例子 的 声 始 代 玛 中 一 拌 。 


Dim acClass As mycomponent .myclass 

Euanpction foofx] As Varianl x2 As Varianb As Wariani 
on Erreor Goto Handie_Error 
aClass Is Notiiing Then 
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Set aClass = Mew mycomponent riyclas8g 
End 下 
' (调用 acCalss 的 一 些 方法 ) 
Exit Function 
Handle_Rtror 
foo = ErrDeseription 
End Function 


12.2.4 ”调用 类 实例 的 方法 


创建 商 实 例 以 后 ， 可 以 调用 类 的 方法 来 获取 编译 过 的 MATLAB 函数 。 

当 方 法 有 输出 变量 时 ， 第 1 个 变量 总 是 nargout， 它 的 数据 类 型 为 Long。 这 个 输入 参数 传 
递 MATLAB nargout 参数 给 编译 函数 ， 并 且 指 定 要 求 有 多 少 个 输出 变量 。 没 有 输出 变量 的 方 
法 不 传递 nargout 变量 。nargout 变量 是 输出 参数 ， 列 在 原始 MATLAB 函数 的 左 侧 ， 紧 接着 的 
输入 参数 列 在 右 侧 ， 所 有 输入 和 输出 变量 都 是 Variant 类 型 的 。 该 类 型 为 默认 的 VB 数据 类 型 。 

一 般 地 ， 除 了 用 户 自 定义 类 型 外 ， 可 以 给 类 的 方法 提供 任何 VB 类 型 作为 变量 . 


12.2.5 ”处理 varargin 和 varargout 变量 


当 原 始 MATLAB 函数 中 存在 varargin 和 /三 varargout 时 ， 这 些 参数 将 作为 列表 中 最 后 的 
输入 /输出 参数 被 添加 到 类 方法 的 变量 列表 中 ， 可 以 通过 创建 一 个 Variant 型 数组 ， 把 数组 的 每 
个 元 素 指 定 给 各 身 的 输入 变量 并 作为 Variant 型 数组 传递 给 多 个 变量 。 

下 面 的 例子 创建 一 个 varatgin 数组 ， 以 调用 一 个 形 如 y=foalvarargin) 的 MATLAB 函 数 生 
成 的 方法 。 

Function foofxl As Wariant x2 As Warant, X3 和 s Waraint， 
X4 As Wandant X5 六 8S Varitmt) 和 5 Wariant 
Dam allass As Object 
Dim v(1 To 5) As Variant 
Dim y As Variant 


On Error Coto Hangdle_Error 
Wi 人 = 
V(27 = X2 
V(33 = X 了 
Y(4) = X4 
Y( 和 ) 一 天 5 
al]ass = (CreateObject "imycomponent.myelass.]_ 必 ) 
Call acClass foof1,y wy)} 
foo =y 
Exit Function 
fandle_Error: 
foo = ErrDescription 
End Function 


NMWComUtl 工具 库 中 的 MWUtl 类 提供 MWPack 帮助 函数 ， 以 创建 varargin 参数 ， 
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12.2.6 在 调用 方法 的 过 程 中 控制 错误 


创建 类 实例 或 调用 类 方法 时 如 果 发 生 错 误 ， 则 在 当前 过 程 中 创建 一 个 出 错 标记 。VB 在 声 
明 Dn Error Goto <label> 的 过 程 中 提供 一 个 错误 控制 兼容 性 ， 发 生 错 误 时 跳 至 <label> 行 ， 所 有 
的 错误 都 通过 这 种 方式 来 控制 ， 包 括 原 始 MAILAB 代码 中 的 异 误 。 


12.2.7 履 改 标记 


每 个 MATLAB Excel 生成 器 组 件 提供 一 个 MWTFlags 类 型 的 名 为 MWFlags 的 单一 读 写 属 
性 ，MWEFlags 属性 由 两 部 分 组 成 :数组 格式 化 标记 和 数据 转换 标记 。 数 据 转换 标记 改变 数据 
从 Variant 型 向 MATLAB 类 型 转换 或 其 道 转换 时 的 行为 。 黑 认 时 ， 这 些 类 型 提供 了 它 自己 的 
MWEiags 属性 ， 和 忽略 了 方法 被 调用 的 类 的 属性 。 特 别 是 在 特定 变量 的 设置 与 类 属性 的 默认 设 
置 不 同 的 情况 下 ， 提 供 MWArg 类 。 

本 小 节 讨 论 如 何 设置 这 些 标记 。 


1， 数 组 格式 化 标记 

数组 格式 化 标记 引导 数据 转换 ， 以 生成 一 个 源 于 一 般 Variant 型 数据 的 MATLAB 单元 数 
组 或 矩阵 ， 并 作为 输入 参数 ， 或 生成 一 个 _ Variant 型 数组 或 包含 基本 类 型 数组 的 单一 Variant 
数据 作为 输出 参数 。 


2， 数据 转 换 标 记 
数据 转换 标记 处 理 数 组 元 素 的 类 型 转换 。CoerceNumericToType 和 JnputDateFormat 两 个 
数据 转 执 标记， 控制 数值 和 日 期 类 型 如 何 从 VBA 〈Visual Basic for Application) 转换 到 
MATILAER。 
考虑 下 面 的 例子 ， 
SUb toof ] 
Dim actass As mycomponentmyclass 
Dim varl, var2 点 s Variant 
Dim y As Variatt 


On Elitor Goto Handle_Error 
Varl= 1 
Var2 = 3## 
Set acClass = JJew mycomponent.mmycjlass 
{al acClass.foof],Yvarlvar2) 
Exit Sub 
Handie_Error: 
MsgBox(ErrDescriptionm) 
End Sub 
本 例 将 VariantInteger 型 的 varl 转换 为 int16 型 , 将 VarianyDouble 型 的 var2 转换 为 Double 
型 。 如 果 诛 始 的 MATLAB 函数 希望 有 两 个 Double 型 变量 作为 输入 ， 则 上 面 的 代码 导致 错误 。 
解决 的 方法 是 将 varl 指定 为 Double 型 。 组 这 可 能 很 难 办 到 。 琐 时 ， 将 CoerceNumericToType 
标记 设 为 mwTypeDouble， 让 数据 转换 器 将 所 有 的 数值 输入 转换 为 Double 型 ， 在 前 面 的 例子 
中 ， 创 建 类 以 后 ， 调 用 方法 前 放置 下 面 的 代码 行 。 
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acClasg .MWHlags.DataConvefsionFlags.CoefceNuinericToType = mwTIypeDouble 
了 putDateFormat 标记 控制 VBA Date 型 数据 的 转换 方式 。 本 例 将 当前 的 日 期 和 时 间作 为 
一 个 输入 变量 进行 传递 ， 并 转换 为 字符 串 。 


Sub foef 》 
Dim afClass As riyeomponentrmiyclass 
Dirt today As Date 
Dim y As Wariant 


Ona Error Goto Handle_Error 
today = Mow 
Set at]1ass = New Imycomporent. mycjass 
alass. MYWElags.DataConversionFlags.InputDateFormat = 
InwDateFornatString 
Call aClass.foofl,ytoday) 
Exit Sub 
Handie_Brror: 
MsgBox(ErrDesecription1 
nd Subh 


12.3 ”应 用 举例 


本 例 首 先 伸 建 3 个 M 文 件 ， 分 别 实现 用 Jacobi 迭代 法 、Gauss-Seidel 进 代 法 和 SOR ( 超 
松弛 ) 适 代 法 求解 线性 方程 组 然后 用 它们 创建 COM 组 件 ， 并 在 VB 中 利用 该 组 件 进行 线性 
方程 组 求解 。 


12.3.1 创建 M 文件 
首先 创建 M 文件 ， 如 下 所 示 。 其 中 参数 ab,x0 和 eps 均 为 公共 变量 。 


Jacohim: 
functiom sS=jacobif) 
2 Jacebi 夺 代 法 解 线 性 方程 组 
站 aa 为 陛 数 和 矩阵 ，b 为 方程 组 ag=h 的 右 端 项 ，xo 为 初 值 
global ah x0 eps; 
b=b'; 
XU=x0 ， 
D=diag(diag(aii 妆 求 对 角 托 阵 
D=inv(D)，55 求 对 角 撼 阵 的 道 
L=tnlta-1b， %5 求 严格 下 三 角 托 阵 
U=trinufa,1)，%% 求 严格 .上 三 角 和 矩阵 
B= 一 Dr*(L+U); 
臣 DD4b， 
8S= 卫 *XO+f， 
while norm(s-XD)> 一 eps 
XU0=3; 
S 一 防 直 X 人 十 全 
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GaUDss.In: 
fnnction S=(Ganse 门 
儿 Gauss-Seidel 选 代 法 解 线性 方程 组 
%% a 为 系数 徐 阵 ，b 为 方程 组 ax=b 的 右 端 项 ，x0 为 初 值 
glebal ab X0 eps; 
b=b ; 
X0O=XD; 
D= 丰 ag(diagfal); 5 求 对 角 年 阵 
L=tril(a.-1D)，%% 求 严格 下 三 角 猎 阵 
U=aiufa.1); % 求 严格 上 三 角 和 阵 
C=inv(D+TI); 
也 = 一 全 *#[; 
全 人 *+b; 
3 一 也 +XO+T 
While normfs-x0)>=eps 
XD=S; 
S= 豆 #XOH 志 
end 
5 一 31 
Teturn 


岛 人 及 .nm: 
fanction S=SORIwW) 

% SOR( 超 松弛 ) 迁 代 法 解 线性 方程 组 
% a 为 系数 矩阵 ，b 为 方程 组 ax=h 的 右 端 项 
吧 x0 为 初 值 ，w 为 松弛 因子 
global ab x0 eps; 
bb=b 
XO=X0O 
D=diag(diag(a)，% 求 对 阴 算 阵 
L=-til(a-1) 站 求 严格 下 三 角 卸 阵 
U=-triufa.])， 站 求 严 格 上 三 角 竹 阵 
C= 边 YOD 一 w#L)， 
耳 = 尼 #[ 人 一 冯 )DTw# 曲 ]; 
二 本 YY?b， 
& 一 及 人 XN 站 二 二 
While normks 一 KDJ>=eps 

XO=8， 

S 一 卫 #XN0 二 f 
end 
8 多 
IEbumn 


12.3.2 创建 COM 生成 器 组 件 


在 MATLAB 命令 窗口 中 输入 命令 comtool， 启 动 MATLAB COM 生成 器 图 形 用户 界 面 。 
在 “File” 菜 单 中 选择 “New Projeet” 选 项 ， 打 开 “MNew Project Settings” 对 话 框 ， 如 图 12-4 
所 示 。 
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在 “New Projeet Settings” 对 话 框 中 ， 技 下 面 各 步 对 
进行 设置 ; 

ft) = 在 Component name” 广 本 框 中 输 六 组 件 各 
“Lingaer， 第 击 Tb 恒 糙 光标 称 动 天 “Class me” 
玄 素 杠 中 。 

1 字面 有 | 宗 自 动 南 名 的 近 扣 蕊 训 SuwenClase 在 “人 ass 
namen 立 素 框 中 畏 六 里 名 “LinSolver"， 音 击 ”“Add” 接 
乌 。 

1 于》 村 认 叶 的 隔 志 苇 汶 1 全， 机 枚 变 硕 本 号 ， 

[4 “Piaject dreetory” 交 本 框 中 包 音 一 个 默认 的 路 
矢 蛆 音 ， 其 中 得 撕 COM 生 夸 由 的 局 动 路 树 和 组 件 名 。 
可 以 将 这 站 路径 改 变 为 任何 其 他 路 宕 。 如 果 选 择 的 路 衬 
下 存在 ， 系 统合 提示 你 是 下 是 要 创建 该 路 径 ， 

【5) 单 击 “OK” 控 钮 ， 回 到 COM 生成 回 主 窗口 。 

灼 后 按 酸 以 下 步骤 生成 COM 组 件 : 

fi 在 GOM 生 磺 点 图 带 用 卢 界面 中 音 击 “二 Fe” 





[1 三 前 而 创建 前 了 个 内 玄 件 的 保存 路 径 中 报到 对 庶 误 件 ， 单 击 它 ， 并 昔 击 “Opena” 扶 扎 。 
【31 重复 (11 1327， 和 将 了 个 M 玄 件 全 部 种 奶 到 异型 中 去 ， 

td4) 在 “Build” 荣 单 中 选择 “COM Object” 志 项 ， 生 丰 COM 组 件 

感动 创 呈 COM 临 件 以 后 ,到 建 依 息 显示 在 “Batld Stanas” 面 板 中 ， 本 图 12-5 缸 未 。 






困 125 成功 各 建 COM 组 伞 以 后 星 示 的 信息 
12.33 在 Wisual Basic 中 使 用 COM 组 件 
用 COM 生成 器 完成 COM 望 件 的 创建 以 后 ,创建 Viwual Basic 程序 , 在 程序 中 使 用 该 COM 
诅 性 ， 
而 瑟 全 下 面 


1， 创 娠 Visual Basic 工程 

下 面 以 Wanaal Basic 帮 作为 例 ， 创 建 一 个 Visual Basic 工程 ， 其 步 村 如 下 :+ 

fi 前 番 Wi 轩 ajE， 

127 在 “新 什 上 程 ” 对 话 李 中 和 迪 攻 “标准 EXE” 赵 项， 确定 工程 的 美 型 。 单 击 “ 打 开 ” 
扶 馈 ， 草 建 一 店 断 的 Wisaal basic 工程 ， 

fr 在 亡 柴 昔 中 ， 些 拌 下 程 一 引用 ， 品 示 “引用 ”对 请 框 。 

[4 “引用 ”对 话 框 中 列 出 了 所 有 可 用 的 组 件 ， 在 其 中 选择 “LinSolver 1L0Type Library” 
选项 。 单 击 “ 柄 定 ” 捷 恰 ， 证 回 井 sual Ba 主 菜 单 。 

&， 创 建 用 户 界面 

现在 评 训 一 系列 控件 到 空白 的 窗 体 上 , 完成 对 话 杠 的 创建 . 话 加 控件 以 后 的 窗 悼 如 图 12-6 
所 示 。 者 控件 的 属性 设置 如 表 12-1 所 示 。 





围 :1 窗 俱 设计 
惠 12-1 休 忻 属性 设 面 





二 是 和 本 于 
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其 他 属性 设置 
Jnqex=4 Text=-> 
Index=5 
Index=f 
JIndex= 了 










上 et 1 





Text=-1 
















TExXt=15 









Text=-1 





lmndex=9 
Ihdex=1t0 Text=5 
Endex=il Text=10 
Idex=D Text 
Indexs=l ext=0 
Index=2 Text=0 
和 dex=-0 TeEXt= 


ae 


JIndex=s Cahti0t=X3= 
























































Index=6 Caption=X1+ 
Index=7 了 7 Caption=x2+ 


Index=g Caption=x3= 


jndex=fT 万 ahtion=Xl 
Index=2 Caption=X3 
Index=0 KapHon=1 
有 由 xx=1 Caption=X2 


Cabtion= 计 算 精度 
Caption=jJacobi 选 代 撤 
optGanss Caption=(Gauss-Seidel 选 代 法 


Caption=SOR( 超 松弛 ) 选 代 法 
cmdcompute 


cmdCancel Caption= 衣 狐 



















IhlImmir 




















钙 ]Result 


记 tPrec 






















CrmmandButton 








3. 添加 代码 

窗 体 和 控件 属 竹 设置 完毕 以 后 ， 洽 加 对 象 代 码 。 这 些 代 码 将 引用 表 12-1 中 的 控件 名 和 属 
性 值 。 如 果 要 给 任何 控件 或 属性 指定 不 同 的 名 称 或 值 ， 需 要 通过 改变 代码 来 体现 这 些 改 变 ， 
下 面 的 代码 利用 前 面 创建 的 LinSolver 组 件 求解 给 定 的 线性 方程 组 ， 并 显示 计算 结果 。 
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Option Expiicit 


Private Enutm kfethod 
jacobpi = 1 
BausS = 之 
SoT = 了 

End Rnum 


Private mlsvSolver As LinSolverLingSaolveY 
Prjivate tmdbIindexfi To 3 1 To 3 as Pouhle 
Private mdblRighti To 3) As Double 
PHvate mndblInitfi To 3)s Double 

Private mdbiPrec As Double 

Private tmdbhlWeight As Double 

Private mintdMfethod As Kethod 


Private Suh cdCancel_ClckO 
' 印 载 窗 体 
Unload fmTLinSolv 

End Suh 


Private Sub Form Load 
' 创 建 LinSolver 类 的 实例 
Set ImISVSolver = New LinSolverLinSotwer 
默认 时 选择 Jacobi 挝 代 法 进行 计算 
optUacobj,Yalue = Trie 
mrmtdMethod = jacobi 

Bnal Suhb 


Prmvate Sub cmdCompute_ClickO 
Dim varResult As Wariant 


' 系 数 垂 阵 

Imdblingqexft]l, 1 = Val(txtFuntOyTExt) 
imdblimdex(T, 27= Val(txtFuntlj,Texb 
mdblindex(T, 3) = Val(txtPuaf2)Tex 
ImdbiIndex(2， 1t] = WalftxtRunfd4j.Texb 
Imdbindexf2， 2 = WEtF5T Texb 
imdbHandexft2, 了) = YaltkthPanfGy Texty 
imgblindexf3, 1 = walltxtPun08h Textby 
Imdhblndexf3, 2 = WValftxtPunf9y Texg 
ImdhlJndexf3 3= ValltztFonf0) Txt 


右 端 项 

TadbjRightl] = VatftxtFun(3).Texty 
indb]Right2)l = ValftxtEunt7).Iexh 
mdblRight(3) = wal(txtEungiiy ,Text 


' 初 值 
idbtinit(1) = Yalftxtmnitt9).Texnb 
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mdblInitf2) = ValltxtInit(1)Tex 人 二 
imdblInit(3) = WalltxtInit(2).Texb 


' 精 度 
ImdihlPrec = Valttprec.Text) 


' 选 择 不 同 的 方法 进行 求解 
Selecti Case mt 妇 iethod 
Case jaceobi 
mlsySolverta = tndbIImndex 
ImlsvSolverb = mdblRight 
mlsvSolverx0 = IndblInit 
InisvSolvereps = ImndbjPree 
Call mlsvSolverjacobifl varResulb 
Case ausS8 
imlsvSolvera = ipdblndex 
ImlsvSotvertb = tmdblRight 
InisvSolverzO = IndblInit 
imsysSolvetepbs = IndblPrec 
Call mlsvSolvergauss(1, varResult 
Case SO 
InisvSolvera = tndblImdex 
mlsvSolverb = IndblRigtt 
mdsvsolverx0 = imdblInit 
mlsvSolvereps = mdblPrec 
mdbiwWeight = Val(txtWeight Text) 
Call mlsvSejversor[], varResult mdblWeight 
Enq Select 


' 输 出 许 敬 结果 
Dim int As Integer 
For intI = 1 To3 
刀 {Result(inti - 1).Text 一 
攻 tResuUltint - 1).Iext = Str(varResultf1, intI) 
ext 
End Sub 


Private 30b ptGanss_ClickO 
InImtdMviethod = ganss 
lblWeight Enablied = False 
ftWeieht.Enabled = Falee 

End Sub 


Prnvate Sub optjacobi_Clickn 
mmidMethod = jacobi 
JblWeightEnabled = False 
ttWeightEnahled = False 

End Sub 


Piyate Sub optSOR_ClickO 
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下 Rd 号 6 
选择 = 误 忻 ” 蓝 单 中 的 “保存 工程 ”选项 ， 保 存 工程 。 证 窗 体 名 称 为 fmLinSaiv， 丫 箱 
六 “LinSsolwybp” 作 为 工程 名 ， 
默认 时 程序 求解 下 面 的 方程 组 ，3 个 变量 的 初 值 都 是 几 
| 站 交 一 之 而 一 荐 至 旦 
一 全 晤 中 二 0 一 用 三 二 
- 曾 = 了 十 5 天 直 


二 ， 和 运行 程序 
接 下 栈 恒 ， 运 行程 序 。 生 行 寻 果 她 图 1 二 7 所 示 。 





围 屏 - 了 后 行 央 果 


12.4 COM 组 件 的 部 署 


闻 著 COM 组 件 指 的 是 将 COM 组 件 安装 到 设 有 安装 MATLAB 的 其 他 机 如 上 , 进行 COM 
蛆 件 胡 图。 需要 特 组 件 打 包 分 发 到 目标 机 绒 ， 间 在 目标 机 时 上 安装 MRC。 


12.4.1 粗 忻 打 所 


模型 坑 译 和 COM 对 复 的 测试 都 成 动 以 后 ， 吝 可 名 特 组 件 进 行 打 皮 ， 以 便 和 分 发 抬 些 志 用 
卢 。 打包 时 念 将 组 件 和 它 的 所 有 坦 持 库 打 包 到 一 个 种 解压 可 执行 程 座 中 ,要 打包 蛤 件 ， 技 册 
贞 下 步 丰 直行 。 

il) 返回 到 COM 生成 器 主 界 面 ， 如 果 已 经 关闭 ， 重 新 站 动 它 间 载 入 模型 工程 

[2》 技 嘎 序 选 择 Compouenr 一 Packaage Cormmponett 邮 项 ， 打开“Package Filsg” 对 话 框 ， 
十 本 十 





如 图 12-8 所 示 ， 


上 呈 EBP 1 0 二 
| 六 二 中 导 1 


四 [二 EELREH 采 本 呈 bi 庆 F 关 有 下 从 下 可 本 周记 用 交 丰 下 亲生 





汞 132. “Package Files” 对 话 幅 
卉 择 对 话 框 中 的 “Include MCR" 时 ， 包括 MCRInstallerexe 文 作 。 单 击 “Creaie,,， 村 挂 ， 
创建 一 个 尖 为 < 组 件 名 >,exe 的 自 解压 可 执行 程序 ， 其 中 包 舍 表 12-2 中 列 出 的 文 忻 ， 


反 琳 12.2 组 忻 打 自 时 外 舍 的 妇 忻 










骨 后 必 运行 的 凤 本 梓 
本 可 全 后 的 旭 梓 2 3 


四 吧 | 和 二 or 本 =- 上 
[weueaueem | 站 所 MATLAN 塌 作 通 和 时 亩 工具 与 下 有关 
纪 必 技 本 六 本 ， 与 平 儿 有 关 


要 将 组 件 安装 到 另 一 台 计 算 机 上 ， 需 要 将 < 明 件 名 >,exe 包揽 制 到 该 计算 机 上 ， 和 状 从 从 写 
行 中 运行 它 ， 





12.4.2 MCR 


性 用 要 12.2 中 的 MCRInsiallerexe 程序 在 目标 机 器 上 安装 MECR。MCR 宕 载 诅 件 证 壳 运 
行 所 全 需 的 库 文 件 ,。 第 3 章 比 较 详 细 地 介绍 子 MICR 的 天 术 情况 台 其 安 蜗 方法 ， 


12.4.3 常见 间 题 


表 123 列 出 了 使 用 COM 生成 器 时 可 能 过 到 的 一 些 问题 ， 以 用 引起 问 是 的 原因 和 解 岂 问 
题 的 办 法 ， 


厢 12.3 使 用 COM 生成 器 引起 的 问题 和 解 站 办 法 


所 王强 前 由 评 回 直 吉 本 生 | 重新 这 行 ma -aaij， 几 违 本 一 者 罚 语 
古 EDOM 对 重 机 

行 诈 一 十 569 音 吕 ， 首 目 遇 朴 覃 的 
aailahrgsdsiyalaa2。 计 十 行 省 专 

ET mWEErTEHL 二 





- 圾 吓 因 为 波 有 于 条 
面 言 三 表 j 请 让 刘 


理 是 帮 时 语 








续 表 


如 果 DLE 没有 注册 ,打开 一 个 DOS 窗口 ， 
将 路 径 改 变 为 
<projsetdir>viistih,<projectdir> 表 示 工 程 文 
件 的 位 置 ， 并 运行 下 面 的 请 他: imWregsYT 
<projectdl>.d 














引起 问题 的 原因 


1]. 没 有 注册 工程 DLL 

3. 在 系统 路 答 上 的 某 个 地 
方 存 利 不 兼容 的 MATLAB 
DLL 




















Emor ip VBAProjecnAetiveX conmiporett camt 






Creale Dbject， 






























MATLAB 没有 位 本 系统 路 
么 上 

从 DoOs 提示 符 中 注册 工程 
DLL 时 ，MATTLAB 不 在 骤 统 
路 冬 上 

所 和 刘 择 的 M 六 件 的 名 称 与 
库 中 M 文件 的 名 称 相 同 







Error im WBAProjectAurormation errorThe 
sperifieg modinle coulqg not be iund. 





将 <matlabhrootbhimwin32 前 在 路 和 





























LoadLibraryf "combponent_name 1 0.dl 
雪 ailed-The speeified module could not be found. 


特 <matiahrooribintwit32 区 在 路 径 上 






















重 命 名 M 文件。 选择 一 个 不 与 库 中 广 
件 冲 突 的 名 称 


人 Snneol TecoIppile he NM Tile XXRR DecauSe 这 这 
already in the libraly Librmrmfiletmlib. 


12.5 深入 COM 生成 器 组 件 


本 节 讨 论 与 COM 生成 器 组 件 有 关 的 比较 深入 的 话题 ， 如 版 本 、 注 册 、 数 据 类 型 转换 等 。 
深入 了 解 这 些 知 识 对 于 更 好 地 理解 和 使 用 COM 组 件 十 分 有 益 。 


12.5.1 COM 组 件 的 兼容 性 


MATILAB 的 COM 生成 器 使 得 可 以 将 经 过 编译 的 MAILAB 对 象 集 成 到 Wisual Basic, C++ 
或 任何 其 他 支持 COM 的 语言 中 。COM 生成 器 组 件 作 为 独立 的 COM 对 象 生成 。 组 件 中 的 
MATLAB 函数 作为 COM 对 象 的 方法 出 现 。 

COM 生成 器 提供 了 健壮 的 数据 转换 机 制 和 数组 格式 化 ， 以 保持 从 Visual Basic 调用 时 
MATLAB 的 灵活 性 。 另 外 还 提供 了 对 错误 的 处 理 ， 这 样 ， 源 丁 MATLAB 函数 的 错误 将 自动 
作为 Visual Basic 的 错误 进行 处 理 ， 返 回 的 出 错 信 息 总 是 引用 原来 的 MAITLAB 代码 ， 使 得 调 
试 更 加 容易 。 

娘 外 ， 每 个 组 件 还 创建 了 简单 的 版 本 机 制 ， 以 帮助 管理 同一 组 件 不 同 版 本 的 配置 。 


12.5.2 组 件 生成 的 内 部 过 程 


创建 COM 组 件 的 过 程 是 完全 自动 进行 的 。 用 户 提供 了 一 个 要 处 理 的 M 文件 列表 和 少量 
附加 信息 ， 如 组 件 名 、 类 名 和 版 本 号 等 ， 后 面 的 创建 工程 包括 代码 生成 、 编 译 、 链 接 和 注册 
最 终 的 组 件 ， 
《1) 第 1 步 生 成 创建 组 件 的 所 有 涉 代 码 和 其 他 支持 文件 。 编 译 器 首先 创建 .ec 和 .h 文件 
(fooh, foo.e, barh 和 barc)， 可 以 看 成 是 原来 M 文件 中 代码 的 @C 语言 翻译 。 它 还 创建 甸 含 
每 个 DLL 输出 函数 实现 的 主 源 文件 《mycomponent_dllLcpp )。 编 译 器 另外 生成 一 个 接口 描 
述 语音 (IDL) 文件 (mycomponent_idlidij)， 包 括 用 相关 GUID 指定 的 给 件 的 类 型 库 、 接 口 
和 头 。GUID 是 Globally Unique Identifier 〈 全 局 惟一 -标识 符 ) 的 缩写 ， 一 个 128 位 的 整数 值 
保证 它 总 是 惟一 的 。 
后 面 创 建 的 是 C++ 类 的 定义 和 实现 文件 (mycomponent_com .hpp 和 mycomponent_com.cpp)， 
除了 这 些 源 文件 ， 编 译 器 还 生成 一 个 DEL 输出 文件 (mycomponentdef ) 和 一 个 源 脚 本 


7 























【WCGTIPENETETC ) 
(24 宵 步 是 村 第 1 步 生成 的 IDL 玄 件 《myeotnpomenat_idlLidli 调用 TDiL 护 译 旺 ， 创 建 
接口 臣 立 件 【myeomponent_jdLh)， 楼 所 GUID 文件 (mWECHnPOGEEEL LiE 1 和 组 件 类 型 虎 均 
俐 TamwyeertPaament_ id| ,ti 楼 口上 训 伞 外 后 TDL 文件 中 基于 接口 定 久 的 类 型 定 交 和 函数 声明 。 
接口 GUID 玄 件 包括 TDL 文件 中 吉 于 所 有 接口 的 GUID 的 定义 ， 组 件 类 坦 库 文件 上 恒 揪 所 有关 
型 的 二 进 制 表示 和 组 件 提 供 的 对 铺 ， 

(3) 第 3 步 把 前 两 步 生成 的 所 有 CIC++ 源 民权 下 
编 评 为 目标 代 公 。 这 里 有 一 个 包 舍 一 系列 [C++ 模板 近 芋 章 : 
浊 Tngicomeckisthy 的 站 他 立 件 本 立 件 包括 尼 要 的 。 Viaa Base 冰 时 /过 得 
CONM 荐 壬 。 费 莽撞 制 和 注册 代码 的 棋 板 实 琐 ， 

ii 稍 生 系 为 组 件 生 成 最 些 的 DLL， 本 步调 用 
第 3 步 生 成 的 对 鲁 玄 件 的 链 楼 和 必要 的 MATLAH 
库 以 生成 DLL 组 件 (myeompanent_1.0)， 然后 源 
坊 译 如 在 DLL 上 与 第 1 步 生 成 的 钠 即 本 一 起 微调 
用 , 以 将 第 1 步 生 成 的 类 型 库 狠 定 到 完成 的 DLL 中 ， 

(51 量 后 一 步 是 在 系统 上 注册 DLL。 


12.5.3 调用 约定 


本 节 介绍 MATLAB COM 生成 器 组 虱 的 调用 购 Rdealyigry 
定 。 乒 括 从 厌 始 M 误 件 向 Visual Basic 紧 射 。Visual 区 过 丹 译 的 虽 前 监 
Basie 函数 调用 经 过 篇 译 的 M 函 攻 的 机 制 如 划 1239 图 让 函数 钵 用 过 得 
丽 永 ， 

1. 生成 CDM 类 

生成 COM 类 需要 生成 用 接口 描述 语 玉 【IDL' 请 写 的 类 计 关 妇 件 ， 以 及 相 革 的 CH+ 殉 定 
亡 室 现 文件 ， 生 成 器 例 自 动 生成 必要 的 IDL 和 CiCH+ 代 三 来 生成 组 件 的 仁 个 COM 类 ， 这 个 
过 程 对 于 用 户 来 说 ， 通 常 是 址 而 的 。 

2 1DL 映射 

MEATLAB AT 瑚 数 的 一 伙 碟 或 为 4 

人 metiom [ 芝 1 下 守 ，wEIRIEut] 王 fi 从 其 .WEITEIT 
读 函 教 直 接 映 射 为 下 面 的 IDL 代 呈 ， 


要 己 感 LT | 看 攻 让 玫 事 5 
本 at 晤 ARTANTE 秆 4 
[ 国 .66TWARIANTY 年 











Tiaaati WARLANTe YarmuaEeat 
上 WARILAIST 号 |， 
[WARTANT X2， 


[il WARIANT wengnk 


“这 





该 IDL 函数 的 名 称 与 原 M 函数 的 相同 ， 并 且 有 一 个 包含 原 函 数 所 有 输入 /输出 参数 加 上 
natgout 参数 的 参数 列表 。 如 果 编 译 一 个 没有 输出 的 M 函数 ， 将 不 生成 nargout 参数 。 如 果 该 
参数 存在 ， 则 它 是 一 个 long 型 的 [im] 参 数 ， 它 总 是 列表 的 第 1 个 参数 。 使 用 该 参数 ， 可 以 正确 
地 将 MATLAB 的 nargout 参数 过 滤 为 编译 后 的 M 代码 。 

nargout 参数 后 面 ， 输 出 按 参 数 在 MATLAB 函数 左 端 出 现 的 次 序列 出 ， 并 且 用 [in,outj 标 
出 ， 表 示 它 们 在 两 个 方向 上 都 可 以 传递 。 然 后 列 出 输入 参数 ， 按 它们 在 MATLAB 函数 右 端 出 
现 的 次 序列 出 。 所 有 输入 参数 用 [io] 标 出 。 如 果 存 在 可 选 的 vararginyvaratgont 参数 ， 它 们 总 是 
显示 在 输入 参数 和 输出 参数 的 最 后 。 所 有 除 hatgout 以 外 的 参数 都 作为 COM VARIANT 类 型 
进行 传递 。 

3. Visual Basic 映射 

上 面 的 foe 函数 可 以 映射 为 下 面 的 Wisual Basic 代码 : 


Sub foofnargout As Long，_ 
Y1 As vanant _ 
TY2 上 As Variant 


Varargout As Variant，_ 
买 | 丰 s warianb _ 
X2 As Waraint _ 


Varargin 上 S Warjant) 
Visual Basic 用 Variant 类 型 为 COM 的 VARIANT 类 型 ， 以 及 所 有 Wisual Basic 基本 类 型 
与 Variant 类 型 的 转换 提供 了 本 地 支持 ， 通 常 ，Visual Basic 基本 类 型 的 数组 /标量 和 Variant 类 
型 的 数组 /标量 可 以 作为 参数 传递 . COM 生成 器 组 件 还 提供 了 对 Excel 的 Range 对 象 的 直接 支 
持 ， 该 对 象 被 VBA 用 于 表示 Execel 工作 表 中 的 单元 范围 。 


12.5.4 组 件 注册 


COM 生成 器 创建 组 件 时 ,会 自动 生成 一 个 称 为 类 型 库 的 二 进 制 文件 。 作 为 创建 过 程 的 最 
后 一 步 ， 该 文件 作为 资源 文件 与 生成 的 DLL 绑 定 在 一 起 。 


1， 自 注册 的 组 件 
所 有 COM 生成 回 组 件 都 是 自 注册 的 . 自 注册 组 件 包 售 向 系统 注册 表 添 加 或 从 系统 注册 表 
删除 其 完整 描述 的 所 有 必要 代码 ,使 用 mwregsvr 工具 注册 自 注 册 DLL。 例如 ， 要 注册 一 个 名 
为 mycomponent_1.0.411 的 组 件 ， 在 DOS 命令 行 发 出 下 面 的 命令 : 
InWwWIregsvIT ImYcomponent 1_0.dl 
mwregsvT 完成 注册 过 程 以 后 ， 会 显示 一 则 表示 成 功 或 失败 的 消息 。 类 似 地 ， 下 面 的 命令 
InWTeSgSYT fr mycomponent_1_10.dl 
注销 惊 组 件 。 
将 COM 生成 风 组 件 安装 到 特定 机 器 上 ， 必 须 用 mwregsvr 工具 进行 注册 。 如 果 将 组件 移 
到 同一 机 器 的 不 同 目 录 下 ， 必 须 重 新 进行 注册 。 从 特定 机 器 上 山 除 组 件 时 ， 首 先 注销 它 ， 以 
确保 注册 表 中 不 剩 下 错误 信息 。 





272。 











2， 全 球 惧 一 标识 符 

信息 用 一 个 或 多 个 相关 命名 值 作 为 密 旺 保存 在 注册 表 中 。 密 匙 本身 主要 具有 亲 种 类 型 的 
值 ， 即 可 读 字 符 串 和 GUPD。GUID 用 一 个 128 位 的 整数 来 确保 其 惟一 伺 ，MATLAB 编译 器 
会 自动 生成 创建 组 件 时 在 组 件 内 部 定义 的 COM 类 、 接 口 和 类 型 库 的 GUID 值 , 并 且 将 这 些 密 
是 编码 成 组 件 的 自 注 册 码 , 至 系统 注册 表 的 接口 基于 目录 , 并 且 与 COM 有 关 的 信息 保存 在 名 
为 HRKEY_CLASSES_ ROOT 的 顶级 密 是 下 。HKEY_CLASSES_ ROOT 下 是 几 个 其 他 密 匙 ， 组 
任 在 这 些 密 峡 下 写 入 信息 。 这 些 密 匙 如 表 12-4 中 所 示 。 


表 12-4 密 此 及 其 定 多 


定 记 
系统 上 与 COM 有 共 的 信息 ， 每 个 组 件 在 HREY_CLASSRS_ ROOTACLSID 下 为 
HKEY CLASSES_ROOTCLSID 它 的 每 个 COM 项 创建 一 个 新 密 昨 。 剖 建 的 审 是 具有 一 个 已 经 赎 结 类 的 GUI 值 ， 
并 且 包 合 玫 个 子 审 是， 它们 县 有 与 类 有 关 的 情 息 








系统 上 与 COM 接口 有 基 的 信息 , 每 个 组 件 在 HKEY_CLASSES_ROCTInterface 
HKEY_CLASSES_ROOTInterface 目录 下 为 它 定 尺 的 每 个 氮 口 创建- -个 新 密 凸 该 密 避 具 有 指定 给 接口 的 GUIUD 值 ， 
并 包 售 一 些 子 密 下 ， 它 们 具有 与 搁 口 有 关 的 情 息 





乘 统 上 与 类 型 库 有 美的 信息 每 个 组 件 通 过 将 GUID 值 指定 给 类 型 库 来 方 它 创 
HKEY_CLASSES_RODTATYPeL 刘 建 一 个 密 胜 在 该 审 匙 下， 为 类 型 库 的 每 个 版 本 创建 一 个 新 密 县 。 记 以 ， 具 有 相 
同名 称 的 类 型 库 的 新 版 本 音 新 使 用 原 GUID， 但 是 创建 -- 个 莉 的 子 密 几 

这 两 个 审 册 是 为 组 件 的 程序 站 和 版 本 独立 程序 四 创建 的 ， 用 
HKEY_CLASSES_ROOT<ProgID>， <eotnphonenht-narne>,<rlass-nime> 和 <componentmamec<rigss-name><yersion-numher> 
HKEY_CLASSES ROOTI<VerIndProsID> | 形式 的 字符 串 创 建 ， 根 据 钥 件 和 尖 的 名 称 而 不 是 GUID 值 创 建 类 实例 时 ， 这 些 审 匙 
很 有 用 








3.， 获取 注册 信息 
COM 生成 器 包含 了 MATLAB 函数 componentinfo， 可 以 在 系统 注册 表 中 查询 安装 的 任何 
COM 生成 器 组 件 。 该 函数 可 以 在 MATITLAB 内 部 执行 ， 输 入 参数 为 组件 名 、 主 版 本 号 和 次 版 
本 号 。 它 返回 一 个 包 售 必要 信息 的 结构 数组 。 调 用 不 带 参 数 的 componentinfo 函数 会 返回 安装 
在 机 器 上 的 所 有 COM 生成 器 组 件 。 
下 面 的 例子 在 注册 表 中 查询 一 个 组 件 名 为 mycomponent、 版 本 号 为 1.0 的 组 人 性 。 该 组 件 有 
4 个 方法 ， 即 mysumuvrandvectors,getdates 和 myprimes; 2 个 属性 ， 即 问 和 nm， 1 个 事件 ， 即 
Inyevent。 
JInfo = cotmponentintotmycomporent， |, 0 
Info = 
Name: imyeottjyonent 
TypeLib: mycemponent 1.0 Type Library 
LIBID: 13A14AB34-44BE-11D5-B155-00DOB73B 和 7544] 
MajcrRev' 1! 
RinorRev': 0 
FileName: 也 Work mycormpomnentdistribymyeomponent 1_0.dllh 
Interfaces: fxl struct] 
Co lasses; TIXI stmet 


Info.Inierfaces 


dis 二 
ame: Tinyclass' 


”27 








ID: 134A14AB36-44BE-11D5-B155-00DUB7RA7344) 


JInfo,CecClasses 

inms 二 

Name: ITmyclass' 

CLSID; '13A14AB35-44BE-11DS-RB15S-00DOB7BA75441 

ProglD: mycomponent-myclass,1_0' 

VerIndpProgID': mycomponent.myclass' 
InhprocsServer32:DAWorkmycomponentdistribmycaoriponenet_ 1]_0.d1 
iethods: [1x4 stmact] 

Properties: fm | 

Events: [1x1 strucf 


Info.Coclasses.Events.M 
al 一 
nction Imyeventfx, y) 


Info.CoeClasses.Methods 
an8 一 
1xX4 sbmet array with fields: 
IDL 
M 
忆 
YY 


Info.Coelasses.Methods.M 

ansg 一 

fnection [y] = tmysumtyarargin) 

ang 二 

fnefion [varargout] = randvectors 人 ) 
ans 一 

functiocn [入 ] = getdatesftn. inc) 

ang = 

fonetion 虽 ] = myprirmestn) 


返回 的 结构 包含 对 应 于 组 件 注册 表 和 类 型 库 最 重要 信息 的 字段 。 这 些 字段 在 表 12-5 中 
定义 。 
表 42-5 组 件 返 回 的 注册 甫 入 息 
TypeLih 组 件 类 型 库 
组 件 类 型 GUI 
MajorRev 主 版 本 号 


类 型 库 文件 名 和 了 路径 。 因 为 所 有 COM 生成 器 组 件 都 将 类 型 库 绑 定 到 DLL 中 了 ， 该 文件 


名 与 DLL 名 称 和 路 径 相 同 
Entertaces 








































定义 类 型 床 中 所 有 接口 的 早 构 数组 。 每 个 结构 包 人 省 2 个 字段 : 
Jame 接口 名 
sID 接口 GUID 
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定 交 组 性 中 所 有 COM 类 的 结构 数组 。 每 个 结构 包 合 下面 这 些 字段 ， 
eName 娄 洗 


seCLSID 类 的 GUDD 

* ProgID 版 本 依 赖 每 序 呈 

ea WErIndProgID 版 本 独立 程序 王 

se InbtocServer2 姐 件 DLL 的 完整 名 称 和 路 径 

se etheds 包含 定 六 谅 接 口 的 所 有 美方 法 的 函数 店 型 的 结构 该 结构 包 合 4 个 字段 ， 


2 IDL 塘 口 描述 语言 函数 原型 组 成 的 数组 
人 M MATLAB 冰 数 原型 组 成 的 数组 
和 CC 语 言 函 数 原 型 组 成 的 数组 
> YEB Visnal Basie 函数 诛 型 组 成 的 数组 
* Propertiesg ”人 包 舍 所 有 类 属性 名 称 的 单元 数组 
Byventfs 电 含 定 尽 该 类 所 有 事件 的 函 数 序 型 的 结构 。 该 结构 锯 舍 4 个 宅 段 ; 
> JDL ， 接 吕 描 述 语 言 函数 原型 组 成 的 数组 
> RM MATLAR 的 数 原 型 组 成 前 数组 
> CC 辟 语 言 函数 诛 型 组 成 的 数组 
VB Visual Basic 函数 原型 组 成 的 数组 








12.5.$ ”版 本 控制 


COM 生成 器 组 件 支 持 简单 的 版 本 机 制 ， 该 机 制 使 得 生成 和 部 署 同 一 组 件 的 多 个 版 本 很 容 
易 实 现 。 组 件 的 版 本 号 是 DLL 名 称 的 一 部 分 ， 也 是 系统 注册 表 中 版 本 依 丈 DD 的 一 部 分 。 

创建 组 件 以 后 ， 可 以 指定 一 个 版 本 号 ， 默 认 时 为 1.0。 开 发 组 件 的 特定 版 本 时 ， 版 本 号 应 
该 保持 个 变 。 实 现 这 一 点 以 后 ， 在 特定 条 件 下 ，MAITLAB 编译 器 会 在 随后 每 次 生成 组 件 时 重 
复 使 用 类 型 库 、 类 和 接口 GUID. 这 避免 了 多 次 生成 同 - -组 件 时 创建 过 多 的 注册 密 嫩 ， 如 果 每 
次 生成 组 件 时 部 生成 新 的 GUID， 就 会 发 生 这 种 情况 。 

得 到 新 的 版 本 号 以 后 ，MATLAB 编译 器 会 生成 新 的 类 和 接口 GUID， 使 得 即使 在 类 名 相 
同 的 情况 下 ， 系 统 也 能 将 它们 与 以 前 的 版 本 区 分 开 来 。 所 以 ， 部 署 已 经 生成 的 组 件 时 ， 给 组 
件 的 每 次 改变 使 用 新 的 版 本 号 。 这 确保 了 部 署 新 组 件 以 后 可 以 比较 容易 地 管理 这 两 个 版 本 。 

MATLAB 编译 器 通过 在 系统 注册 家 中 查 痢 已 经 存在 的 具有 相同 名 称 的 组 件 来 实现 特定 组 
件 名 、 类 名 和 版 本 号 的 版 本 控制 。 具 体内 容 为 : 

。 如 果 已 有 组 件 具 有 相同 的 版 本 ， 它 使 用 该 组 件 类 型 库 的 GUID 值 。 如 果 新 类 的 名 称 与 
前 一 版 本 相 匹 配 ， 则 重新 使 用 类 和 接口 GUID。 如 果 类 名 不 匹配 ， 会 给 新 类 和 接口 生成 新 的 
(GUID 。 

* 如 条 查 找 一 个 具有 不 同 版 本 的 已 有 组 件 ， 使 用 已 有 类 型 库 的 GUID， 并 为 新 版 本 号 创 
建新 的 子 密 匙 。 它 给 新 类 和 接口 生成 新 的 GUIDD。 

。 如 果 不 查 找 指 定名 称 的 已 有 组 件 ， 会 给 组 件 类 型 库 、 类 和 接口 生成 新 的 GUID。 


12.5.6 ”数据 转换 


CGM 生成 器 组 件 是 双重 接口 的 COM 对 象 ， 它 支持 COM 自动 化 蒜 容 的 数据 类 型 。 调 
用 COM 生成 器 组 件 的 方法 时 , 输入 参数 将 转换 为 MATLAB 内 部 数组 格式 并 传递 给 经 过 编 
译 的 MATLAB 函数 。 函 数 退 出 时 ， 输 出 参数 从 MATILAB 内 部 数组 格式 转换 为 COM 自动 
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化 类 型 。 

COM 客户 端 在 经 过 编译 的 MATLAB 函数 中 将 所 有 的 输入 、 输 出 变量 作为 VARIANT 型 
变量 进行 传递 。 一 个 WARIANT 类 型 的 变量 可 以 保存 任何 简单 类 型 的 变量 。Win32 应 用 程序 接 
口 《API) 提供 了 许多 创建 和 操作 VARIANT 类 型 变量 的 函数 ，Visual Basic 提供 了 支持 这 种 类 
型 的 本 地 语言 。 

表 12-6 列 出 了 COM 生成 器 组 件 支 持 的 VaARIANT 类 型 码 。 


表 12-6 COM 生成 器 组 件 支持 的 VARIANT 类 型 码 
- VbEmpty “ 
ohar - 有 符号 单字 节 字 符 
一 一 
本 
EEC 
[9 CE 


自 0 在 
















































es ET 


VT_ERROR SCODE vbEror 


字 节 整数 ) 
DATE， 表示 则 期 和 时 间 的 8 字 节 浮 点 值 


无 符号 整数 ， 等 价 于 无 符号 int 型 
Co 。 96 位 (12 字 知 ) 无 符 号 整数 , 用 10 的 可 赤 
VT_DPECIHMAL DECIMA1. 
， 2 字 节 布尔 型 值 (0xFFFF = Truei 0x0000 = 
yyT_BOOL WARIANT_BDOL | ybBonplean Boolean False) 
鸭 本 


放 赦 进行 比 讽 化 
VT_VARIANT WARIANT': vbVariant Variant YARIANT (只 能 在 与 YT-BYREF 或 
VT_ARRAY 进行 组 合 时 指定 ) 
上 字 组 羡 
<anything>|VT_ARRAY 加 汪 痢 加 几 用 声明 为 数组 的 任何 基本 类 型 屎 位 组 各 
VT_ARRAY 


用 声明 为 引用 的 任何 基本 类 型 逐 位 组 音 
+ 表示 Windows 特定 类 型 ， 不 是 标准 CAC++ 的 一 部 分 。 


VT_BYREEP 
表 12-7 和 表 12-8 列 出 了 COM 的 VARIANT 型 和 MATLAB 数组 之 间 的 转换 规则 。 










权 
名 
宣 
吕 
总 





串 
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胡 12-7 MATLAB 向 COM VARIANT 转化 的 规则 


MATT ARB 
柯 VARIANT 类型 数组 数据 的 癌 RIANT 光 型 
数据 类 型 标量 数据 的 类 


维 划 元 数组 为 
1xX 1 的 单元 数组 转化 为 音 -的 | 多 维 竺 无 和 
加 VT_VARIANTIVT_ARRAT 型 的 
VARIANT ， 类 型 为 单元 内 容 的 


WARIANT, 每 个 数组 元 素 的 类 型 是 对 应 单 
二 了 
MATLAH 数据 类 型 于 守 转 换 规 则 进行 无 的 MATLAB 数据 类 型 按照 转换 规则 进 


转换 以 后 得 到 的 类 型 |4 纯 以 后 得 到 的 类 型 


VT_DISPATCH 






















































MAILAB 颖 析 数组 转 横 为 
MTWStmuet 对 惫 ， 该 对象 作 为 
VT_DISPATCH 类 型 进行 传递 


VYT_DISPATCE 






















MATITLAB 中 ，]1XL 的 字符 矩阵 表示 长 
度 为 L 的 字符 串 ， 它 转换 为 VT_BSTR 类 
1X1l 的 字符 矩阵 转换 为 | 型 的 VARIANT， 长 度 为 工 。 一 行 以 上 ,或 
VYT_BSTR 类 型 的 YARIANT， 字 符 | 者 具有 更 高 维 的 字符 第 降 转换 为 
串 长 度 等 于 : VT _BSTR'VT ARRAY 类 型 的 
VARIANT。 转换 后 的 数组 中 ， 每 个 字符 昌 

的 长 度 汶 1， 对 应 于 原 此 阵 中 的 每 个 字符 













字符 串 数组 不 作为 字符 年 
阵 进 行 支 持 。 使 用 1XEL 的 学 
符 矩 阵 单 元 数组 传递 字符 中 
单 苑 妾 组 










MATLAB 稀 酬 数组 转换 为 
MIWSparse 对 乱 ， 访 对象 作为 
VT_PISPATCH 类 型 进行 传 递 






Spa WVT_DHSPATC3S VYT_DISPATC 开 



























































实数 型 的 1<1 double 型 拒 阵 转 
换 为 VT_R3 类 型 的 YARIANT。 复 
烤 型 的 1X1 double 型 矩阵 转换 为 
VT_DISPATCH 关 型 的 VARIANT 
实数 型 的 1X1 single 型 矩阵 转换 
为 VT_R4 类 型 的 WARIANT， 复 数 
型 的 1X1 sintle 型 宦 阵 转换 为 
VT_DISPATCH 类 型 的 VARIANTA 
实数 型 的 1X+ 训 声 型 年 阵 转换 为 
VT_II 类 型 的 VARJIANT, 复数 型 的 
1XT ing 型 抵 阵 转换 为 
VYT_DISPATCH 类 型 的 VARIANTA 

实数 型 的 1x1 uiatg 型 第 阵 转换 
为 VT_UIT] 类 型 的 WARIANT.。 复数 
型 的 1X1 uin@ 型 矩阵 转换 为 
WYJT_DISPATCH 区 型 的 ARIANTA 
实数 型 的 1X1 int6 型 矩阵 转换 
为 VYT_Iz 类 型 的 YARIANT。 复 数 
型 的 1x1 intl6 型 矩阵 转 杭 为 
VT_DISFATCH 类 型 的 WARIANTA 
实数 型 的 1X]uint16 型 矩阵 转换 
为 YT_UT2 娄 型 的 YARIANT.。 复数 
型 的 1X1 uintl6 型 矩阵 转换 为 
VYT _DISPATCH 鞠 型 的 WARIANTA 


实数 型 的 多 维 double 型 托 阵 转换 为 
VT_RSIVT ARRAY 类 型 的 YARIANT'， 
复数 型 的 多 纵 double 型 矩阵 转换 为 
VT_DISPATCH 类 型 的 VARIANT 
实数 型 的 多 维 single 型 矩阵 转 搞 为 
VT R4|VvT_ ARRAY 甘 型 的 VARILANT。 
复数 型 的 案 维 single 型 矩阵 转换 为 
VT_DISPATCH 类 型 的 VARIANTA 
实数 型 的 和 多维 ing 型 扎 阵 转换 为 
VT_IIVT _ ARRAY 类 型 的 VARIANT, 复 
数 型 的 和 多维 ing 型 拭 阵 转换 为 
VYT_DISPATPCH 类 型 的 WARIANTA 

实数 型 的 多 锥 uintg 型 矩阵 转换 为 
VT_UII|VT_ARRAY 尖 型 的 VARIANT。 
复数 型 的 多 维 uint 型 宅 阵 转换 为 
VT_DiSPATCH 类 型 的 VARIANTA 
实数 型 的 案 维 intl6 型 第 阵 转 搞 汶 
VT_E,VT ARRAY 类 型 的 VARIANT, 复 
元 型 的 索 维 intl6 型 所 阵 转换 为 
VYT_DISPATCH 类 型 的 YARIANTA 
实效 型 的 多 维 uintl6 型 宅 阵 转 搞 为 
VT_.UD|VT_ARRAY 类 型 的 VARIANT。 
复数 型 的 案 维 uintl6 型 虐 阵 转换 为 
VT_DISPATCH 类 型 的 YARIANTA 











复数 数组 用 MWComplex 
类 传人 经 过 编译 的 M 函 数 ， 
或 从 该 医 激 传 出 


















复数 数组 用 MWComplex 
类 待人 经 过 编译 的 M 函数 ， 
或 从 该 函 圣 传 出 



















复数 数组 用 MrWComplex 
类 人 导 和 人 经 过 编译 的 M 函数 ， 
或 从 该 函 妾 传 出 





















复数 数组 用 MYFComplex 
类 竺 入 经 过 编译 的 M 函数 ， 
或 从 访 函 数 传 出 


















复数 数组 用 MTWComplex 
类 传人 经 过 编译 的 M 函 燥 ， 
或 从 亦 画 半 传 出 








复数 数组 用 Mncomplex 
区 传人 经过 编译 的 M 函数 ， 
或 从 该 函数 传 出 
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续 表 
RATTE 上 在 
证 WARILAMNT WAaRIANT 类 型 福 棒 
玫 据 类 型 | 。 杯 旺 要 江 的 关 王 于 站 的 国 写 工 攻 和 


实数 型 的 1X1 int32 型 撼 阵 转换 实数 型 的 多 维 int32 型 矩阵 转换 为 最 数 数组 用 MWComples 
为 VT l4 类 型 的 VARIANT。 复 数 | VT_H|VT_ ARRAY 类 型 的 VARIANT。 复 关 传 入 经 过 编译 的 M 函数， 
型 的 1X1 int32 型 矩阵 转换 为 | 殉 型 的 计 维 in32 型 矩阵 转换 为 成 从 该 函数 伟 册 
VT_DISPATCH 类 型 的 YARIANTA | VYT_DISPATCH 类 型 的 VARIANT 

实数 型 的 1X 1 mint2 淹 征 阵 转 换 实数 型 的 多 锥 mint32 型 护 阵 转换 为 
为 V 了 TUI 类 型 的 VARIANT。 复数 |」 VT_UI41VT_ARRAY 类 型 的 VARIANT。 
型 的 1X 1 uint32 型 年 阵 转 换 为 | 复数 型 的 才 维 uint32 型 矩阵 转换 为 
VT_DISPATCH 类 型 的 WARIANTA 1 VT_DISFATCH 类 霸 的 YARLANT 












复数 数组 用 MYWComplex 
关 伟 入 经 过 编译 的 M 函数 ， 
或 从 该 函数 传 出 












(标量 或 数组 数据 ) 
创建 空 数组 










VT_BSTR 类 型 的 YARIANT 转换 为 1XL 的 MAILAB 字符 数组 ， 其 中 
L 为 机 转换 的 字符 串 的 长 度 . VT_BSTR. VT_ARRAY 类 型 的 VARIANT 转 
换 为 1XxL 学 符 娄 组 构成 的 MATLAB 单元 数组 











1.，WVARIANT 日 期 作为 double 型 数据 保存 ， 起 始 日 期 为 1899 年 12 月 
31 日 晚 12 时 。MATLAB 日 期 的 起 始 时 间 是 OO0 00:00:00。 所 以 ， 
VARIANT 日 期 0 吉 射 到 MATLAB 数值 日 期 印 3960.0，VARLANT 日 期 
转换 为 MATLAB double 类 型 ， 增 加 了 的 3960.0 

2.，VARIANT 日 期 可 以 可 选 地 转换 为 字符 申 
































IDispatch* 指 针 类 型 根据 它们 指向 对 银 所 处 的 上 下 文 来 确定 


任何 基本 类 型 的 指针 根据 它们 指向 的 对 象 的 类 型 进行 处 理 。 生 成 的 
MATLAB 涩 组 包含 值 的 深 搁 贝 ， 
亲 维 VARIANT 数组 转换 为 多 维 MAILAB 数组 ， 每 个 元 素 根据 基本 类 
| 型 进行 转换 . VT_VARIANTIVT ARRAY 类 型 的 的 多 维 VARIANT 数组 转 
换 为 兆 维 单元 数组 ， 每 个 单元 根据 特定 类 型 进行 转换 

















<anything>iVT_ARRAT | (变化 ) 
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1. 数组 格式 化 标记 

COM 生成 器 组 件 具有 控制 数组 数据 如 何在 两 个 方向 上 进行 格式 化 的 标记 。 通常 应 该 开发 
匹配 MATLAB 函数 和 编译 后 COM 对 和 象 的 对 应 方法 的 输入 和 输出 参数 的 客户 代 色 ， 按 照 表 
12-7 和 表 12-8 所 示 的 规则 进行 囊 配 。 

表 12-9 显示 了 数组 格式 化 标记 。 


表 12-9 数组 格式 化 标记 














定 电 用 于 输入 数组 的 数组 格式 化 规则 。 输 入 数组 是 VARIAMNT 数 角 ， 由 客 彤 创建 ， 作 为 输入 参数 此 送 
丛 编 译 后 COM 对 象 的 方法 。 该 标记 的 人 台 法 值 和 包括 mwArrayFormatAsTsrmw ArrayFormatMatrix 和 [ 
Tihw 扣 rayFormnattetl。 

mwWArrayFormatAsJs 传递 没 改 变 的 数组 ， 
jnputArTrayFotinat mwArrayForinatMatrix 为 默认 忆 , 将 所 有 数组 作为 矩阵 处 理 . 当 输入 VARIANT 是 VT_ARRAY | <type> 

类 型 的 时 (其 中 <type> 为 尾 何 数值 类 型 ), 标记 没有 影响 . 当 输 入 YARIANT 是 YT_VARIANT.VT_ARRAY 
类 型 的 时 , 探 半数 组 中 的 VARIANT.。 如 果 它 们 是 单 信 的 并 且 类 型 相同 , 财 生 成 一 个 对 应 类 型 的 MATLAB 
和 矩阵， 而 不 是 单元 数组 。 
mwArrnayFortnatcell 将 所 有 数组 作为 MATLAB 单元 数组 进行 解释 。 
设置 输入 数组 的 间接 级 别 ， 它 与 钙 putaArrayFormat 标记 一 起 使 用 ， 是 适用 于 贱 鹿 数组 ， 即 VARIANT' 
数组 ， 其 元 束 也 是 数组 .该 标记 的 歌 认 值 为 0， 宅 将 InputarayFortmnat 标记 用 于 最 外 层 数组 ， 当 标记 大 
于 0， 例 如 等 于 区 时 ， 格式 化 规则 试图 将 它 本 身 应 用 于 工 蛮 的 第 末 个 级 别 
定 迪 用 于 输出 数组 的 数组 格式 化 规则 .输出 数组 是 一 个 MATLAH 数组 ， 由 编译 后 的 COM 对 象 创 建 ， 
TDutputArayFormat  】 作为 输出 参数 从 调用 的 方法 发 送 给 客户 ， 谅 标记 的 值 可 以 是 mrwArrayFormatAsJs,,mwaArrayFonnatMatrix 
和 mwArmrayFormmatcell， 与 putArmayFonmmat 标记 的 值 相对 应 

该 标记 只 用 于 嵌 亦 的 单元 数组 ， 设 置 输出 数组 的 间 扶 级 别 ， 与 DutbutArrayFormat 标记 一 起 使 用 。 工 
作证 式 与 mputArrayIrdtFlag 标记 的 完全 相同 

只 用 于 Excel 的 范围 ， 当 调用 方法 的 目标 输出 是 Exeel 工作 表 中 的 单元 范围 ， 并 且 调 用 时 输出 数组 的 大 
小 和 形状 未 知 ， 将 该 标记 的 值 设 置 为 Tmue 来 改变 Exeel 电子 表格 范围 的 大 小 ， 使 它 适 侣 输出 数组 的 大 小 

将 该 标记 设置 为 Tme， 转 置 输出 参数 ， 从 Exeeal 中 调用 COM 生成 器 组 件 时 ， 如 果 MATLAB 函数 将 
输出 作为 行 笑 量 返回 ， 但 希望 数据 按 列 排列 时 该 标记 很 有 用 


2 数据 转换 标记 

COM 生成 器 组 件 包含 控 制 将 特定 VARIANT 类 型 转换 为 MATLAEB 类 型 的 标记 。 这 些 标 
记 包 括 ， 

(1 CoerceNuimnericToTYyPe 标记 

该 标记 让 数据 转换 器 将 所 有 数值 型 VARIANT 数据 转换 为 -一 种 特定 的 MATLAB 类 型 . 本 
标记 可 以 影响 的 VARIANT 类 型 查 包 括 VT_ILVT_UIIYT_P2VYT UDPYT _HVT_UI4YT R4， 
VT_R8,VT_CYVT_PECIMAL,VT_INTVT_UINTVT_ERROR,VT_BOOL 和 VT_PATA。 该 标 
记 的 合法 值 包括 mwTypeDefanulbtmwTypeCharnmwTypeDouble mwTypeSingleumwTypeLogical， 
mwTypemntgmwTypeUintgimnwTypeInt16,mwTypeUint16InwTypeInt32 和 mwJTJypeUint32。 

(2) InputDateFormat 标记 

本 标记 告诉 数据 转换 器 如 何 将 WARIANT 日 期 转换 为 MATLAB 上 日期。 该 标记 的 合法 值 为 
mwDataFormatNumeric〈 默 认 ) 和 mwDateFonmnatString 。 

31 DutputAsDate 标记 

为 布尔 型 。 该 标记 让 数据 转换 器 将 输出 参数 作为 日 期 处 理 。 默 认 时 ， 作 为 经 过 编译 的 
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MATLAB 函数 的 输出 参数 的 数值 型 日 期 作为 Double 型 值 进行 传递 ,需要 减 去 COM 日 期 怕 称 
(693960)。 将 该 标记 设置 为 Tme 时 将 所 有 输出 值 的 类 型 都 转换 为 Double 型 。 

【4》 PateBias 标记 

为 Long 型 。 该 标记 设置 进行 COM 至 MATLAB 数值 型 日 期 转换 时 的 日 期 偏 移 。 该 属性 
的 默认 值 是 的 3960， 它 硼 示 COM Date 基 型 和 MATLABR 数值 型 日 期 之 间 的 差 值 。 


12.6 ”工具 库 


本 节 介 绍 与 MATLAB Excel 生成 器 一 起 提供 的 MWCombUtil 库 。 本 库 自由 发 布 ， 包 括 几 
个 用 于 数组 处 理 的 函数 和 用 于 数据 转换 的 类 型 定义 。 本 库 包 含 在 文件 mwcomutiLdll 中 。 它 必 
须 在 使 用 生成 器 组 件 的 机 器 上 注册 一 次 。 

用 下 面 的 DOS 命令 在 命令 提示 行 中 注册 MWComUtil 库 . 

IDPYWTegSVT DTWCcomutil.d]] 

MWComUtl 库 包 括 7 个 类 和 3 个 校 举 类 型 。 在 使 用 这 些 类 之 前 ， 必 须 在 VB IDE 中 引用 
MWComUtil 类 库 。 要 做 到 这 些 ， 在 Wisual Basic 编辑 器 的 主 菜单 中 依次 选择 Thols 一 
References... 。“References ”对 话 框 中 列 出 了 所 有 可 以 获得 的 类 型 库 。 从 该 列表 中 选择 

“<MWCombtil 1.0 Type Library” 并 单 击 “OK” 按 竺 ， 

Excel 生成 器 工具 库 提 供 了 以 下 几 个 类 : 

MWUtil 类 ; 
MWElags 类 ， 
MWStrmet 类 
NMWEield 类 ， 
MWComplex 类 ; 
MWSparse 类 ; 
MWArg 类 。 


12.6.1 MWUtil 类 


MWUtl 闫 包含 一 系列 用 于 数组 处 理 和 应 用 初始 化 的 静态 工具 方法 。 使 用 本 类 时 ， 每 个 
吾 xeel 实例 中 只 能 有 一 个 本 类 的 全 局 实例 。 使 用 该 全 局 实例 时 ， 最 好 把 它 定 义 为 全 局 变量 。 下 
面 介 绍 MYUiil 类 的 方法 过 程 ， 


1，MWInit&pplicationfPAPP As Object) 过 程 

该 过 程 用 当前 的 Excel 实例 初始 化 库 。 其 中 ，pApp 参数 为 Object 类 型 ， 是 当前 Execel 应 
用 的 一 个 合法 引用 ， 无 返回 值 。 

本 过 程 必须 被 每 个 使 用 尹 xcel 生成 器 组 件 的 MATLAB 进程 调用 一 次 .如果 库 设 有 初始 化 ， 
则 调用 该 库 的 成 员 类 时 将 产生 错误 。 

【 饮 1】 本 范例 用 当前 的 Exeel 实例 初始 化 MWComUtl 库 ， 一 个 DObjeet 类 型 的 全 局 变量 
MCLUtl 包含 一 个 MWUtil 类 ， 另 一 个 Boolean 型 的 全 局 变量 bModuleInitialized 保存 初始 化 
过 程 的 状态 。 秘 有 过 程 InitModule 创建 MWComUtil 类 的 一 个 实例 ， 并 调用 变量 Application 
的 MWTInitApplication 方法 。 一 旦 本 函数 成 功 ， 所 有 后 面 的 调用 将 在 没有 创建 对 象 的 情况 下 
退出 。 
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了 im MLCLUHI As Object 
Dim bKModuleInitialized As Booleanh 


Private Sub InitModujen 
下 NotbModuleInifialized Then 
On Error GoTo 用 andle Firor 
INMCLUHl Is Nothing Then 
Set MCLUtil = CreateODbjiect("MWComUHLMWUtil ) 
End 开 
Cal MCLUUHLMWInitApplication(Applicatiom) 
bMeoduleInitialized = True 
Exit Sub 
Handqdle_EIrrer: 
bMeoduleJInitialized = 和 alse 
End 开 
End Sub 


2，MWPack(pVarArg, [Vargl [Var1] [Var3 人 过程 

该 过 程 把 一 个 Wariant 型 的 变量 长 度 列 表 打 包 到 单一 的 Variant 型 数组 中 。 本 过 程 的 典型 应 
用 是 在 有 多 个 输入 时 创建 一 个 包含 这 些 输入 的 varargin 单元 。 列 表 中 的 输入 非 空 或 非 缺失 值 
时 ， 被 瀛 加 到 数组 中 去 〈 在 VB 中 ， 一 个 缺失 数据 的 参数 用 值 为 &&H80020004 的 Yariant 型 的 
vbError 表示 )。 

参数 pVarArg 为 Variant 型 ， 获 取 生 成 的 数组 ， [Var0]、[Varl] 等 参数 也 是 Variant 型 的 ， 是 
数组 中 的 Variant 型 数据 的 可 选 列表 ， 

注意 : 在 处 理 列 表 前 ， 末 未 数 总 是 释放 pVarArg 的 内 容 ， 

【 例 2】 本 例 使 用 公式 函数 中 的 MWPack 函数 创建 一 个 varargin 单元 ， 作 为 一 个 输入 参 
数 传递 到 一 个 方法 。 该 方法 从 一 个 MATLAB 函数 编译 而 来 。 

function y = IBYSUm{Vararginy》 
了 = Sum([varargin{:]]); 

该 函数 返回 varargin 中 元 素 的 和 。 假 设 本 函数 是 一 个 myelass 类 的 方法 ，myclass 类 被 包含 
在 一 个 名 为 mycomoneat 的 组 件 中 ， 版 本 为 10。VB 函数 最 多 允许 有 10 个 输入 ， 返 回 结果 y。 
如 果 发 生 错误 ， 该 函数 返回 错误 字符 。 本 函数 假设 前 面 已 经 调用 了 MWInitApplication 方法 。 

FEunction mysumIDptional WwWD 上 As Variant _ 
Dptional Y1 As Variant， 
Dptional V2 As Wariant，_ 

Optioaal V3 As Variant _ 
Optional V4 As Variant _ 
(ptionail VS 具 8 Variant _ 
Optional V6 As Variant，_ 
Ophtional VY7 上 As Variant _ 
刀 ptional YS As Variant，_ 
Optional VY9 As Varnianiiy As Wariant 
Dim y As Variant 

Dirmn varargin 点 8 Wariant 
Ditmm afjlass As Object 
Dim aUtl As Object 
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On Error Ooto Handle_Eiror 
Set acClass = (CreateDbject "mycomponent.myclasg,]_ 人 人 
Set aUt = CreateDhbjecett MAWCotmUtilMWUGHL 
人 Call alittMWPacktvarargin,V 和 ww1V2V3V4 VS WO V7TVSV9) 
ah atlass.mySOmI]， 凡 Varargiay 
mySHBDl 一 了 
Exit Funetion 
Handle_Eiror: 
mysum = ErrDescriptioz 
Endqd Function 


3.，MWUnPack() 过 程 

把 Variant 型 数组 解 包 到 单一 的 Vairant 型 变量 中 , 本 范 数 提供 了 MWPack 函数 的 抒 数 ， 
常用 于 将 Yarargonut 单元 处 理 为 多 个 单独 的 Wariant。 

参数 varArg 为 Variant 型 ， 是 要 处 理 的 Variant 型 输入 数组 。ngStartAt 为 Tong 型 ， 是 开始 
处 理 时 数组 中 的 起 始 编号 《从 0 开始 )， 为 可 选项 ， 默 认 值 为 0。bAutoResize 参数 为 Boolean 
型 ， 是 自动 改变 大 小 的 标记 ， 可 选 。 如 果 本 标记 为 真 ， 任 何 Excel 的 Range 类 型 输出 变量 将 改 
变 大 小 , 以 适应 要 复制 的 Variant 型 数据 的 维 。 改变 大 小 的 过 程 相 对 于 给 定 范 国 的 左上 角 进 行 ， 
默认 时 为 False。[PVar0]，[pVarl] 等 参数 为 可 选项 ， 是 varArg 中 数组 选项 的 列表 ， 可 以 传递 0 
到 32 个 变量 。 

注意 : 未 过 程 可 以 用 nStartAt 参数 ,通过 一 次 调用 或 多 次 调用 来 处 理 一 个 Variant 型 教 组 ， 

【 例 3】 本 例 使 用 MYWUnpaek 方法 ， 在 自动 改变 每 个 范围 时 ， 将 一 个 arargout 单元 处 理 
为 多 个 Excel 范围 。varargout 参数 由 MATLAB 函数 编译 得 到 的 一 休 方 法 提供 。 


fanetion varargout = rangvectoirs 
加 7 这 1:nargout 
varargoutfily = randfi,1)， 
end 


本 函数 生成 一 系列 narargout 随机 列 矢 量 ， 第 i 个 矢量 的 长 度 为 ij。 假设 本 函数 位 于 版 本 
1.0 的 严 ycomponent 组 件 的 myclass 类 中 。 Visual Basie 过 程 没有 变量 , 把 结果 放 入 始 于 A1. 8B1， 
cl 和 D1 的 列 中 :如果 发 生 错误 ， 则 显示 出 错 文 本 信息 框 。 本 函数 假设 已 经 泣 用 了 
MWTInitApplication 方法 。 
示例 代码 如 下 : 
Sub GenVeetorsf) 
Dim acClass As Dbject 
Dim aUtil As Object 
Dim v As Variant 
Dim R1 As Range 
Dim Rz As Range 
Dim R3 As Range 
Dim Rd4 As Ranpge 


On Bror GoTp Handle_Rrror 

Sel aeClass = CreateDbjectf"myeomponentmyclass.] 0 
Ser naUGl = CreateObjeet("MWComU 切 .MWUHl 
SetR1 = Rangef" 上 1 


人 人 了。 








Set R2 = Rangel B1I 
SetR3 = Rangef CT 
Set R4 = 有 angef"D1") 
Call aClass.randvectors(4,， 人 
Call aUtil.MWUnpacktv,U,Trme,RIR2 ,RER3,.RY) 
Exit Sub 
Handle_Error: 
MsgBox (Er Description) 
End Sub 


过 程 中 将 随机 估量 数组 v 解 包 到 Excel 范围 R1、R2、R3 和 R4 中 。 


4，MWDate2VariantDatelpvVam 过 程 
本 过 程 将 MATLAB 的 日 期 输出 转换 为 Variant 型 日 期 。 其 中 ，pwar 为 要 转换 的 日期 。 
注意: MATLAB 将 日 期 作为 双 精 度 浮 点 数 处 理 ，0.0 表示 0100100 00:00:00. 歌 认 时 ， 作 
为 经 过 编译 的 给 出 参数 的 数值 型 日 期 ， 并 作为 double 型 数据 传递 。 
【 例 4] 本 例 使 用 MWDate2VariantDate 过 程 处 理 数值 型 日 期 ， 该 日 期 从 经 过 编译 的 下 面 
的 MATLAB 函数 的 方法 中 返回 
fnction X = EEtdates 人 nn 识 避 
了 = 了 IOW; 
for i=-]:n 
X 人 1 一 了 + 人 (Je 
en 
本 过 程 生成 一 个 长 度 为 a 的 数值 型 值 的 列 矢量 ， 这 些 值 代表 从 当前 日 期 和 时 间 开 始 ， 然 
后 每 增加 ine 天 得 到 一 个 新 值 后 形成 的 一 系列 数据 。 假 设 本 函数 位 于 名 为 mycomponent 的 版 
本 为 1.0 的 组 件 的 myclass 类 中 ， 该 过 程 将 一 个 Excel Range 对 象 和 一 个 double 型 数据 作为 输 
入 ， 并 将 生成 的 日 期 放 在 指定 的 范 男 中 ， 如 果 发 生 错误 ， 则 用 信息 框 显示 出 错 文本 。 假 设 已 
经 调用 了 MWTInitaApplication 方法 。 
代码 如 下 ， 
Suh GenDates(R As Range inc as Donbie) 


Dim acClass As 〇 Object 
Dim aUbl As Object 


On Eror GoTo Handlie_Eror 
Set acClass = CTealeObject imyrcomponermtrImyelass,1 0 
Set aUtil = CreateDhbjectrMWComUtilMWUtI 
Call alass.gEtdatetsf1, R. R.Rows.Count, inc) 
Cal aUtg .MYWDJDate2zwvarantDaterR》 
Pxit Sub 
了 an 直 e_ 王 rror' 
MsSSBox (ETDescriptiony 
End Sub 


12.6.2 MWEFlags 类 


MWTFlags 类 包含 一 系列 数组 格式 化 和 数据 转换 标记 。 所 有 MATLAB Excel 生成 器 组 件 都 
包含 一 个 MWFlags 对 象 的 引用 。 它 可 以 在 对 象 的 水 平 上 修改 数据 转换 的 规则 。 末 类 所 含 下 面 
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这 些 属 性 和 方法 ， 
(] ) ArrayFormatPlags As MWATrayFormatFlass 属性 。 
(2)》 DateConyersionFlags As MWDateConversinFlags 属性 。 
《3 Clone(ppFlags As MWElags) 方 法 。 


1，ArrayFormatFlags 属性 

本 属性 控制 数组 格式 《作为 矩阵 还 是 单元 数组 》， 以 及 将 这 些 规则 应 用 于 内 撕 数 组 。 
MYWArrayFormatFlags 类 是 一 个 不 能 通过 MWFlags 类 实例 创建 的 类 ， 有 以 下 6 个 属性 。 

(1)》 InputArrayFormat 属性 。 该 属性 控制 数组 的 格式 。 这 些 数 组 作为 输入 参数 传递 给 
MAELAB Exce] 生成 器 的 类 方法 ， 默 认 值 为 mwArrayFormatMartrixz， 这 些 数组 的 格式 化 规范 则 
表 12-10 列 出 的 标记 末 表 示 。 


表 12-10 ”输入 数组 的 格式 化 规范 
行 “为 


根据 默认 前 转换 规则 转换 数组 


将 所 有 数组 强制 转换 为 数组 ， 当 过 到 的 输入 变量 是 一 个 Variant 型 数组 时 《默认 时 


mwWArrayFormatkfatrix 将 它 转 换 为 单元 数组 )， 如 梨 每 个 Variant 为 单一 的 值 ， 数据 转换 岂 和 将 本 数组 夸 换 为 一 

个 扰 阵 ， 并 且 所 有 元素 攻 是 数值 型 的 。 如 果 此 转换 不 可 行 ， 则 创建 一 依 单元 数组 
将 所 有 歼 组 强制 转换 为 单元 组 , 输入 的 标量 或 数值 型 数组 转换 为 单元 数组 , 每 个 
单元 和 包 舍 一 个 标量 值 


In0W 上 rrayFormmatcell 








《2 putArrayIndFlag 属性 。 本 属性 控制 应 用 由 InputArrayFormat 属性 所 设置 的 规则 的 水 
平 .不 必 为 varargin 参数 修改 本 属 人 性。 数据 转换 直 代 码 自 动 给 varargin 单元 标记 值 加 1， 这样， 
将 mpbutArrayFormat 标记 应 用 到 varargin 参数 的 每 个 单元 ， 默 认 值 为 0。 

3) OutputArrayFotrmat 属性 。 

《4) OutputArayIndFlag 属性 。 

(57 AutoResizeOutput 属性 。 本 属性 只 应 用 于 Exeel 范围 , 当 方 法 调用 的 目标 输出 是 Excel 
工作 表 中 一 个 范围 内 的 单元 ， 并 且 调 用 时 输出 数组 的 大 小 和 形状 不 知道 时 ， 将 此 标记 设 为 
Trme， 指示 数 据 转换 代码 ， 以 改变 每 个 Exeel 范围 的 大 小 ， 适 应 输出 数组 。 改 变 大 小 时 相对 于 
每 个 指定 范围 的 左上 角 进 行 ， 默 认 值 为 False。 

《6) TransposeOutput 属性 。 将 这 个 属性 设置 为 True， 对 输出 变量 进行 转 置 ， 当 处 理 Exeel 
生成 器 组 件 方法 调用 的 输出 参数 时 ， 本 属性 很 有 用 ， 这 里 ，MATLAB 函数 将 输出 作为 行 矢 量 ， 
并 且 震 要 将 数据 放 到 列 中 。 本 属性 的 默认 值 为 False。 


2，DataConversionFlags 属性 

该 属性 控制 需要 进行 类 型 转换 时 ,如 何 处 理 输入 变量 ， 它 是 DataConyersionFlags 类 型 的 。 
MYWDataConversionPlags 类 不 能 通过 MWFlags 类 的 实例 获取 。 本 类 包括 下 面 的 属性 ， 

e CoerceNumericToType 属性 ; 

es InphutDateFormat 局 性 ; 

e。 OutputAsDate 属性 ; 

se DateBias 属性 。 

《1) CoerceNumericToType 属性 

本 属性 将 所 有 数值 型 输入 变量 转换 为 一 个 指定 的 MATLAB 类 型 。 在 VB 代码 中 有 多 个 不 
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同 数据 类 型 ， 且 需要 将 它们 转换 为 同一 种 数据 类 型 的 时 候 ， 这 个 标记 很 有 用 。 该 属性 的 默认 
值 为 mwTypeDefault， 它 使 用 默认 的 转换 规 出 。 

2》 InputDateFormat 属性 

本 属性 将 作为 输入 参数 的 日 期 型 数据 转换 为 Excel 生成 器 类 的 方法 调用 ， 默 认 值 为 
mwDateFormatNumeric。Date 数据 的 转换 规则 如 表 12-11 所 示 。 


表 12-1{ Date 数据 的 转换 规则 
InwDareFormatNurmeric 将 日 期 型 转 为 数 值 型 
MDateFomnatString 将 日 期 型 转 为 字符 串 型 


【 鲍 5 本 例 使 用 数据 转换 标记 更 新 方法 输出 的 形状 。 该 方法 从 一 个 MATLAB 函数 编译 

以 后 得 到 ， 它 返回 一 个 长 度 未 知 的 矢量 。 
fnetion 六 = InY7primesfny 

过 lengthfn)~=1, erromN Imust be ascalar; end 

过 mn<2,Pp= zerosf1.0); Teturmn end 

= 1:220; 

= length(p); 

ER 和 三公 

fork= 3:2:sqrttn) 
这 pk+lX2) 

Pt(Gkskr12)q) = 人 

end 

end 

B= (ptp>0) 

本 属性 《〈 函 数 ) 生成 一 个 数值 在 0 到 n 之 间 的 行 矢量 ， 假 设 该 函数 位 于 版 本 为 1.0 的 
mycomponent 组 件 的 myclass 类 中 。 下 面 的 过 程 将 一 个 Excel 范围 和 一 个 Double 值 作为 输入 ， 
并 将 生成 的 数值 放 到 指定 的 范围 中 ， 该 阴 数 生成 一 个 行 矢量 。 

Sub GenPrimes(R As Ramge,n As Dotnhle) 
Di alass 点 s TYCOtmihomert IIYe1asS 




















On Ermer GoTo Handle_Error 
Sef al1ass = New mycomponentImnyclass 
alass.MWFElags,ATTayFormatFlags.AutoResjzeCOutput = Tiue 
alass.MTWFlags.ArrayFormatFlags,TransposeDutpmt = Tme 
Call aClass.myprnmes(1 , 及 , 拉 ) 
Exit Suhb 

了 andle_Ertaort: 
MsgBox (ErrDescription) 

End Sub 


(3) OutputAsDate 属 竹 

本 属性 将 一 个 输 凡 变量 处 理 为 一 个 日 期 。 默 认 时 ， 把 作为 经 过 编译 的 MATLAB 函数 输 册 
参数 的 数值 型 日 期 作为 Double 型 值 进行 传递 。 将 本 标记 设置 为 True， 将 所 有 输 册 值 转换 为 
Douhble 类 型 。 
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《4 DateBias 属性 . 
本 属性 设置 日 期 偏差 ， 以 进行 COM 到 MATLAB 数值 型 日 期 的 转换 。 本 属性 的 默认 信 为 
693960， 表 示 COM Date 类 型 与 MATLAB 产值 型 日期 之 亲 的 差异 。 


3，、Glone 方法 

本 方法 创建 一 个 MWEFlags 对 象 的 复制 ， 参 数 ppPRlags 为 MIWFlags 类 型 ， 是 接站 复制 的 未 
初始 化 的 MWTFlags 对 象 的 引用 。 

注意: Clone 方法 分 配 一 个 新 的 MWFlags 对 象 并 创建 对 象 内 容 的 一 个 深度 复制 ， 当 需要 
单个 对 象 而 不 是 一 个 已 存在 对 得 引 用 的 共享 蔓 制 时 ， 调 用 本 方法 . 


12.6.3 MYWStruet 类 


MYWStmet 类 与 经 过 编译 的 类 方法 传递 struet 类 型 的 数据 ， 本 类 包含 7 个 属性 和 方法 。 


1，lnitialize 方法 

本 方法 用 一 个 指定 的 数值 、 维 的 大 小 和 一 个 指定 的 域名 列表 分 配 一 个 结构 数组 。 

参数 varDims 为 维 产 组 ， 可 选 ，varFieldNames 为 域名 数值 ， 可 选 。 

注意 :创建 以 后 ， 有 一 个 1X] 的 MWSttuct 对 象 ， 没 有 字段 ，Initialize 方法 确定 数组 维 
数 并 添加 一 系列 命名 字段 给 每 个 元 素 。 每 决 调用 相同 对 象 的 Initialize 方法 时 ， 都 会 重新 定义 
维 ， 如 果 不 提供 vartDims 变量 ， 则 不 会 改变 已 经 存在 的 数 和 部 组 维 的 大 小 。 如 果 丰 提供 
varFieldNames 变 章 ， 则 已 经 疗 在 的 字段 列表 不 会 改变 ， 调 用 没有 参数 的 Initialize 方法 同样 不 
改变 数组 。 

【 例 6] 下 面 的 Visual Basic 代码 演示 Initialize 方法 的 使 用 。 

Sub foo 站 


Dim x 上 S MIWStruct 
Dimy As MYWStruct 


On Errer Goto Handle_Brror 

为 x 和 ?创建 一 个 没有 字段 的 1X 1 的 结构 数组 
Set X = new MYWStruect 

Sety 王 DeEwW MWStnnct 


把 工 初始 化 为 2X2 的 结构 数组 ， 字 段 包括 “red"，"green'， 和 "bluer 
Call x.Initialize(Array(2.2) Amray("red"，"greenv blue) 

用 1X5 的 结构 数 级 初始 化 % 字 段 为 “aame" 和 "age 

Call y.Initialize(S, Arrayf ”narmne'" "age 


把 # 的 大 小 改 为 3X3， 字 段 名 不 变 
Call x.Initialize(Array(3,3 


给 了 添加 一 个 新 的 字段 
Ca yInitialize(, Array("name" "age"， "Sa[iry 


Exit Sub 
了 andle_RError: 
MsgBox(ErrDescriptiof) 
End Sub 
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2，ljtem 属性 
该 属性 是 MWStmet 类 的 默认 属性 。 本 属性 用 于 设置 / 获取 结构 数组 中 一 定编 号 的 字段 的 
值 。 
参数 ij0il,，.i31 为 可 选项 ， 可 以 是 0 到 31 之 间 的 编号 变量 。 若 训 引 用 数组 的 一 个 元 素 ， 
则 指定 字段 名 的 所 有 编号 ， 


3，NumberoOfFields 属性 
该 属性 为 只 读 属 性 、 它 返回 结构 数组 中 的 字段 个 数 。 


4，NumberofDims 属性 
该 属性 为 只 读 属 性 它 返回 结构 数组 中 的 维 数 。 


5，Dims 属性 
该 属性 询 只 读 属 性 ， 它 返回 包含 结构 数组 中 元 素 字段 名 称 长 度 的 数组 。 
【 例 7} 下 面 的 例子 演示 如 和 何 获取 一 个 二 维 结构 数组 的 字段 。 


Sub foo 间 
DimX As RMTWStruct 








Dim Dims as Variant 
Dim FieldNarmes As Variant 


On Error Goto Handle_Error 
'…， 调 用 一 个 返回 MWStmect 变量 到 x 中 的 方法 
Dims = 天 .Dimas 
FigldNames = XFieldMNames 
FerI From 1 To Dimsf1l) 
FEorJ From 1 To Dimsf2) 
For 及 From 1 To x.NumberOfFields 
y= XILJ,FieldNames( 政 访 
'… 用 了 做 些 什 么 
Next 
Next 
JeXt 
Exit Sub 
Handle_ Ermor 
MsgBox(ErrDescnption) 
End Sub 


6，CIione 方法 

该 方法 创建 一 个 MWStmet 对 象 的 复制 。 参 数 为 ppStmet 为 MWStmet 型 ， 是 一 个 接收 复 
制 的 未 初始 化 的 MYWStruct 对 象 的 引用 。 

【 例 8] 本 例 演示 赋值 与 MWStmet 对 象 的 Clone 方法 之 间 的 不 同 。 用 已 知 对 象 xl 创建 
新 对 象 时 ， 如 果 采 用 赋值 方法 得 到 新 对 象 2， 用 Clone 方法 得 到 新 对 象 x3， 则 当 xl 改变 时 ， 
2 随 之 改变 ， X3 不 变 ， 

Sub foo 个 
Dim xl As MYWStrnct 


Dim x2 点 S MTVWStmet 
Dim X3 As MIWStruct 
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On Eror Goto Handle_Error 
SetXxl =Tew MYWStmmct 

XiCmname") = “John Smith” 
XU age = 35 
设置 xl 的 引用 为 妇 

SetXZ = XL 
为 码 创建 新 对 得 ， 并 把 xl 的 内 容 复制 到 X3 
al xl.Clormnetx31} 
x2 的 "age"” 字段 也 改变 了 ， 双 ' 的 "age" 字 段 不 变 
XLage "一 30 

Extt Sub 

Handle_ Error' 

MISEBexfEILDescEiptiony 
Enad sub 


7.，FieldNames 属性 
该 属性 为 只 读 属 性 。 它 返回 结构 数组 中 元 素 字段 名 长 度 的 数组 。 


12.6.4 MYWEField 类 
该 类 包含 的 属性 和 方法 如 下 。 


1 Name 属性 
该 属性 只 读 ， 字 段 名 。 


2.， Value 属性 
该 属性 为 可 读 可 写 。 它 保存 字段 的 值 ， 是 类 的 默认 属性 。 


3，MAWFlags 属性 
该 属性 保存 MWFlags 对 象 的 一 个 引用 ,为 特定 字段 设置 或 获取 数组 格式 化 和 数据 转换 标 
记 。 结 构 中 的 每 个 字段 有 它 自 己 的 属性 。 本 属性 重 写 被 调用 方法 所 属 对 象 的 所 有 标记 。 


4 Clone 方法 
Clone 创建 一 个 MWEField 对 象 的 复制 。 


12.6.5_ MWComplex 类 
该 类 与 经 过 编译 的 类 方法 传递 或 接收 一 个 Variant 型 数组 ， 本 类 包括 4 个 属性 和 方法 。 


1，Real 属性 
该 属性 保存 复数 数组 的 实数 部 分 。 它 是 MWComplex 类 的 默认 属性 。 


2，Imag 属性 
Imag 保存 复数 数组 的 虚数 部 分 ， 为 可 选项 ， 对 于 纯 实 型 数组 而 言 可 设 为 空 。 
下 面 的 VB 代码 创建 一 个 复数 数组 : 
x=[1+ili+2i 
2+i 2+ 关 ] 
Sub oo 人 人) 
Dim x As MYWCompIex 
Dim rvaltl To 2 1 To 2 点 s Double 
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Erim ivalf1 To 2 1 To 2) As Pouble 


On Error Goto Handie_Eror 
FEeotI=1Toz> 
EorJ=TToz 
rvaltfJ)= 工 
ivaldJy=J 
JNext 
JVext 
Setx = Dew MYWWComplex 
X. Real = TV 让 
x.Imag = iv 纪 


Exit Su 
Handle_Error: 
MsEBox(EITDescripHon) 
End sub 
3 MWFlags 理性 
该 属性 保存 一 个 MWEFlags 对 象 的 引用 。 本 理性 设置 或 获取 特定 复数 数组 的 数组 格式 化 和 
数据 转换 标记 。 每 个 MWComplex 对 象 有 它 自 已 的 MWPFlags 属性 . 


4，CLone 方法 

该 方法 创建 MWComplex 对 象 的 一 个 复制 。 
12.6.6” MWSparse 类 

谅 类 与 经 过 编译 的 类 方法 之 间 相 互 传 递 一 个 二 维 稀 朴 数值 型 数组 .本 类 有 7 个 属性 和 方法 。 

1 NumRows 属性 

该 避 性 保存 数组 的 行 维 , NumRows 的 值 必须 非 负 ; 如 果 值 为 0, 则 行 的 编号 取 扯 RowIndex 
数组 中 的 最 大 值 。 

2， NumcColumns 属性 

该 理性 保存 数组 的 列 维 ， 

3。 Rowlndex 再 性 

该 属性 保存 数组 中 非 零 元 素 的 行 编号 数组 。 

4.Columnlndex 理性 

该 属性 保存 数组 中 非 零 元 素 的 列 编号 数组 。 

5，Armray 属性 

该 理性 保存 黎 下 数 组 中 的 非 零 值 。 

6，MWFlags 则 性 

该 属性 保存 对 铺 的 一 个 引用 。 

7，CLone 方法 

该 方法 创建 对 银 的 一 个 复制 。 

+ 了 8 








【 例 9]】 下 面 的 Y 也 代码 创建 一 个 5x5 的 对 角 稀 朴 矩 阵 。 
X=[2 -1 0 0 0 
-1 2 -1 0 0 
0 -1 2 -1 0 
D 0-1 2 -1 
0 00 -1 21] 


SuUn foo 
Dim x As KMWSparse 
Dim rows(1 Jo 13) AsLong 
Dim cols(1 To 13) As Tonp 它 
Jam valsf(l To 137 4A3s Donble 
Dim ITAsILong, 玉 点 SILonEe 


On Eiror GoTo Handle_Eeror 

及 = 1 

ForI=1To4 
TOWS(K) = 工 
cols(KJI=I+ 1 
VilsfK) 三 -1] 
玉 = 天 十 | 
ToOwgS( 玉 ) = 开 
cols{KK) = 工 
vals( 基 ) = 2 
及 = 开 +1 
IOWwS[ 及 ) = 工 + 上 
Cols( 开 ) = 工 
Yals(K)= -1 
政 = 扑 十 于 

Next 

IOWS[ 及 ) = 5 

EDIS[K) = 性 

YalS 玉 ) = 了 

SetX = New MWSparse 

XumRows = 了 

X.NutncColnmns = 5 

X.RDwIndex = TOWS 

X.ColamnIndex = col 

X, ArTay = Yals 

xi Sub 

Handie_Error 
MSEBox (EIrDPescription) 
End Sub 


12.6.7 MYWArg 类 


该 类 传递 一 个 generic 变量 到 一 个 经 过 编译 的 方法 。 它 包 含 3 个 属性 和 方法 ， 即 Value As 
Varant MWTFIag As MWEFlags 和 Clone 方法 。 


= 人 











+，Value 属性 
Vaiue 属性 保存 要 传递 的 当前 变量 。 它 可 以 是 任意 类 型 的 ， 


2.，MWFlags 属性 
该 属性 保存 一 个 MWFlags 对 象 的 引用 。 
3，CLone 方法 
该 方法 创建 一 个 对 象 的 复制 。 
12.6.8 3 个 校 举 类 型 


工具 类 有 3 个 核 举 类 型 ， 即 mwArrayFormat, mwDataType 和 mwDateFormat。 

(1) 核 举 mwArrayFormat 为 一 系列 数据 转换 时 提醒 数组 格式 化 的 常数 。 其 常数 值 和 描 
述 如 表 12-12 所 示 。 
表 12-12 mwArrayFormat 枚 举 
本 本 于 和 
RN 
和 
(2) mwDataType 校 举 用 于 提示 变量 的 数据 类 型 。 该 校 举 的 值 和 描述 如 表 12-13 所 示 。 


甫 12- 志 amwDataType 校 举 


Ta 


秆 
ImwTypeDefau 区 0 NA 
ImYWTYPeILOSie 可 了 jogic 型 
IIYPeCbar 二 人 ha 

7 。 
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(3) mwDateFormat 枚 举 描述 日 期 的 不 同 格式 。 有 具体 描述 如 表 12-14 所 示 。 


表 12-14 mwDateFormat 术 举 
EEC 用 
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第 13 章 Exeel 生成 器 〔Exceel Builder ) 


MATLAB 还 提供 了 一 个 称 为 蕊 weal 生硬 归 的 工具 .利用 计 工 具 ， 可 以 生成 DLL 妞 件 和 
VBA 代码 。 利 用 DELL 性 件 ， 可 以 进行 与 前 而 COM 生成 只 组 件 炎 似 的 操作 。VBA 代码 可 以 
在 Exeel 的 Visual Basic 蚁 辑 器 中 直接 使 用 ， 可 以 保存 为 插件 [Add-fnj， 

Exeal 生成 量 如 的 GONI 对 生气 供 站 V 巧 了 程序 环境 一 个 娄 ， 读 类 包 舍 一 各 列 称 为 方 读 的 
函数 ， 对 应 于 恒 表 在 姐 件 工程 中 的 需 始 MATLAB 函数 ， 到 目前 为 止 , MATLAB 的 Exeal 生 戌 
加 蛆 件 上 只 支 排 一 个 组 件 一 个 热 ， 


13.1 创建 Excel 生成 器 插件 


13.11 创建 工程 


要 局 囊 工程， 在 府 专 行 诗 输 久 MATLA 上 市 地 mxlool， 星 示 MATLAE 的 Eeel 生 咸 天 主 
遇 口 ， 如 图 13:1 所 未， 






困 13.1 巨 芭 村 生 碟 眉 丰 窗口 

在 窗 蝇 中 仿 贮 选 基 下 le 一 New rajeet， 打 开 下 New rojaci Sedings” 双语 框 ， 癌 图 13-7 
所 未 

1 “CEompornent nama” 文 本 椎 和 有 和 “Class name” 文 志 杠 

在 “Componentmanme” 文 本 框 中 办 六 组件 的 名 称 ， 在 “Clasmname” 畜 二 从中 输 六 费 的 者 
称 ， 星 性 大 是 后 面 创 建 的 和 名称。 输 太 组 件 若 虽 后 ， 生 成 器 会 自动 输 久 一 个 与 组 件 和 相同 的 类 
大 ， 可 以 特 旨 洗 臣 汶 其 他 措 述 性 更 强 的 和 名称。 

注 兽 ， 和 此 管 组 件 者 和 灶 台 可 以 相同 ,但 组 件 尖 才能 与 后 面 泡 咎 的 M 文件 或 MEX 袜 性 的 
宝 竺 由 同 。 


年 让 压 让 


2， "Projacl Version ”文本 框 

在 “Projectverion” 文 本 竹中 输入 组 件 的 版 本 号 。 
默认 版 末 号 为 10Os 

本 “PiO|actdlreciomw” 去 本 杠 

在 “Poject diteclory” 文 本 框 中 输入 工程 目录 ， 工 
程 崩 录 搬 室 蝙 怪 和 打 短 覃 型 时 ， 拱 工程 和 生成 的 辫 件 放 
在 于 里 ， 工 程 目录 根据 当前 目录 名 和 组 忻 名 自动 创建 。 

注音 :可 以 接受 自动 生成 的 工程 目录 路 径 或 选择 其 
他 目录 ,一 下 在 菜单 上 单 击 了 “ 吕 民 接 悍 就 供 关 了 日 肖 。 
本 时 和 司 归 乱 动 工程 战 在 它 的 政权 上 做 任何 羽 谋 ， 则 需 
重重 条 进 抹 理 机 工程 的 指 汪 证 程 ， 也 括 淆 加 支 件 副 工 程 
以 县 指 定 工 程 目 最 融 径 ， 


4 “Compilear options” 方 杠 

志 果 选择 “Create a singleton MCR” 核 和 迹 枢 ， 使 用 
万 件 时 只 创建 一 个 MCR 实例 ， 

可 以 麟 建 妨 详 模 进 的 一 个 调试 版 灰 ， 井 能 在 测 用 
MATLAB 坊 译 路 时 指定 详细 输出 , 污 调 试 版 本 一 方面 人 
许 中 踪 ， 使 出 展 报告 显示 册 文件 和 发 生 情 误 的 行 。 所 有 中 中 信 息 都 会 进行 报告 ， 如 果 不 进行 
调试 , 则 得 不 到 MATLAB 代码 中 发 生 异 误 的 位 置 的 指示 , 另 一 方面 , 它 芭 许 使 用 Visual Shudio 
调试 区 进行 完整 的 调试 . 

设置 完 以 后 ， 单 击 “DKY” 技 钮 ， 它 们 就 成 为 工程 工作 空间 的 一 部 分 并 与 证 加 到 工程 中 的 
所 有 M 文件 和 MEX 文件 一 起 逢 保存 到 工作 宝 间 中 。 一 个 名 为 <caomponent_name>-cbl 的 工程 
京 件 自 动 兢 遇 刘 工程 目录 中 。 


13.1.2 管理 M 文件 和 MEX 文件 


章 建 工程 以 后 ， 主 窗口 日 的 “Prajeets “有 本 本 ”和 “Component” 二 莫 单 般 项 变 为 可 用 ， 
如 转 13-3 所 示 。 章 击 “Ad Eile” 技 扭 或 俯 侈 选 生 Piojact 一 Add Pile， 在 工程 中 旅 加 刘 京介 
和 /下 MEXK 嘉 件 ,一 议 只 能 高 加 一 个 立 件 到 工程 中 。 

昔 击 二 Rainave' 技 握 或 枯 深 迄 择 药 单 Praject 一 氏 emiawe FE， 将 剧 除 所 有 已 经 选 定 的 M 
况 件 或 MEX 支 件 ， 一 演 可 以 剧 除 认 椒 垃 件 ， 单 击 “Edi" 接 租 或 依次 选择 Paaject 一 Elt Te 
或 双击 网 文件 的 立 件 书 ， 将 在 MATLAB 坊 辑 器 中 打开 选 定 的 M 文件 ， 并 可 以 进行 修改 和 调 
试 ， 但 不 能 蝙 辑 MEX 立 件 ， 


13.13 生成 组 件 


定 训 工程 请 贤 和 这 草 过 要 的 网 函数 和 WE 冰 数 以 后 ， 可 以 生成 一 个 可 配 转 的 DLL 广 
件 和 必要 的 VBA 代码 。 以 饮 进 择 莫 单 选项 Build 一 ExeeUCOM Dbiject， 笋 话 MATLAB 二 辑 
器 ， 和 将 中 间 的 源 立 件 写 到 <Praject_dirzAsre， 和 将 进行 配置 的 输出 文件 写 到 <Project_dirovdistrib 
目 景 。 

“ Build samus” 面 极 显 示 生 成 过 程 中 的 输出 信息 ， 报 告 遇 到 的 任何 问 夯 。 出 现在 





中 如 中 


<Project_dir>wistfib 目录 中 的 立 件 会 是 一 个 DLL 文件 和 一 个 VBA 文件 (has)* 生成 的 DLL 会 
间 动 丢 册 到 系 红 中 。 





图 地 土建 工程 战 届 划 从 划 凋 和 荐 宜 变 发 可 用 


使 到 选择 Build 一 Clear Samus， 可 以 清除 “Build Suhus” 而 板 中 的 内 容 。 生 成 过 程 的 输出 
信息 保存 在 文件 <Praject_dirbuildlog 中 ， 要 打 升 该 Log 冯 件 ， 伟 次 选择 Build 一 Dpen Build 
Log， Log 去 件 提供 了 一 个 生成 过 程 的 记录 ， 在 请 除 “Build gatus” 面 柜 中 的 上 内容 居所 还 可 以 
进行 枯 考 。 


13.1.4 测试 VBA 模块 


可 以 通过 在 Bxeet 的 Visual Basic 妨 加 器 中 导 A YBA 广 件 和 汕 活 Exeel 工作 表 中 的 函数 
来 副 荆 全 埃 。 要 抠 WA 代码 导 坟 到 Excel 的 届 sual Basie 编 考 内 中 ， 打 开 Eeel 井 仿 坎 选 撞 
File 一 Impor， 选 泉 目 录 <Prajeet_dimdistmih 下 已 经 创建 的 VBA 文件， 

创建 工程 时 生成 的 VB 槛 专 乌 音 必 需 的 初始 代 洒 和 VBA 全 起 函数 ,每 个 作 式 函数 但 含 了 
营 自 编译 函 划 的 调用 ， 凡 译 函数 的 格式 可 以 通过 Exeel 工作 囊 中 的 单元 得 划 ,， 永 函 监 考虑 一 个 
对 于 宁 始 MATLAB 函数 输 坟 的 输入 列 事 ,返回 一 个 对 应 于 第 1 个 输出 参数 的 单一 蛤 出 。 这 种 
落 型 的 公式 蚊 对 于 访问 一 企 或 才 个 全 大 的 栈 归 是 届 有 用 的 。 读 函 抱 回 一 沾 标量 值 ， 

下 面 是 根据 前 面 生成 的 WBA 代 枉 创建 顶 件 的 必要 步 晶 ,如果 这 些 步 又 平 朋 工作 ， 风 引用 
的 秆 JiE 误 件 的 让 Reel 站 权 。 

ft 和 启动 奴 本 1 

[7 恢 总 计 择 划 意 杭 项 = 工具” 一“ 室 ”一 “Wisual 本 asic 山 辑 内 ”。 

[7 在 WEraget Wisaal Basen 窗口 中 ， 傅 次 选择 “文件 ” 一 “导入 立 件 ,.，， 

[4) 从 <Project_dicsdimtrib 目录 网 择 VBA 文件 (bas)。 

[37 甘 闭 Wiaaal 了 GE 输 辑 加 ， 

(和 1 站 Exeel 工作 胡 窗 日 中 ， 校 饮 透 择 “ 充 件 ” 一 “另存 为 

177 愉 号 看 类 型 铀 为 Wicioaof 全 aeal 吉 载 宝 。 

【187 拒 训 人 忻 保存 列 <Projeet drztistaib 目录 : 

也 可 以 特 误 件 保 存 与 呈 A 精 式 和 *baas 格式 ， 要 保存 为 % 格式 ， 接 晤 上 面 的 步 阶 进行 ， 


盏 当 呈 二 理 








但 是 将 另存 类 型 〈 第 〈5) 步 中 ) 改 为 划 ls 类 型 。 保 存 为 VBA 代码 ， 只 进行 《1) 一 《〈4) 步 。 


13.1.5 打包 和 发 布 组 件 
如 果 模 块 编译 成 功 ， 并 且 创 建 了 Excel 插件 以 后 ， 则 应 准备 包装 组 件 ， 把 它 发 布 给 终端 用 
户 。 组 件 应 该 包括 表 13-1 所 示 的 文件 。 
天 13-1 组 件 应 该 包括 的 文件 


京 性 说 了 明 
_installLbat 用 自 解压 可 执行 程序 运行 的 脚本 











<componentnante_brojget ersion>.dll 到 过 编译 的 组 件 





RMCRImstarlerexe 自 解 压 的 MAILAR 组件 运行 时 库 工 具 ， 与 平台 有 关 
<componenmamey ,ct 组 件 技术 文档 ， 与 平台 有 关 
任何 在 目录 中 找到 的 插件 文件 
在 目标 机 器 上 运行 安装 器 按 以 下 步骤 进行 ， 
《1)》 用 MCRInstaller 安装 MATLAB 组 件 运 行 时 ， 
2) 要 使 用 Excel 插件 ， 启 动 Excel， 选 择 “ 工 具 ” 一 “加 载 志 ..,”， 并 选择 需要 的 xla 


文件 。 
必须 在 每 个 要 安装 组 件 的 计算 机 上 重复 本 发 布 过 程 ， 


13.2 用 Excel 生成 器 组 件 编程 


每 个 MAILAB Excel 生成 器 组 件 都 可 作为 一 个 独立 的 COM 对 象 生成 。 通过 VBA 获取 源 
于 Excel 的 组 件 . 本 节 提 供 了 如 何 利用 VBA 编程 环境 将 MATLAB BRxcel 生成 器 组 件 播 入 Exeel 
的 一 般 信 息 。 

可 以 用 函数 或 过 程 创建 一 个 简单 的 代码 模块 来 很 容易 地 将 MATLAB Excel 生成 器 组 件 揪 
入 VBA 工程 。 这 些 歼 数 或 过 程 装 载 必 要 的 组 件 ， 调 用 必要 的 方法 ， 并 且 处 理 所 有 错误 。 


13.2.1 用 Excel 初始 化 生成 器 库 


在 使 用 任何 MATLAB Exeel 组 件 前 ， 用 Excel 的 当前 实例 初始 化 支持 的 库 。 用 工具 库 函 
数 MWInitApplication 来 进行 初始 化 ， 该 函数 是 MWUti 类 的 一 个 成 员 ， 而 MWUtl 类 是 
MWComUtil 库 的 一 部 分 。 

添加 初始 化 代码 到 VBA 模块 的 一 种 途径 是 提供 一 个 进程 。 该 过 程 提供 一 次 初始 化 ， 当 发 
生 调 用 时 退出 ， 下 面 的 VB 代码 示例 用 当前 Exeel 实例 初始 化 库 文件 。 一 个 名 为 MCLUtil 的 
Object 类 型 的 全 局 变量 控制 MWUitil 类 的 一 个 实例 ,， 另 一 个 名 为 bModuleInitialized 的 Boolean 
型 变量 保存 初始 化 过 程 的 状态 。 

秘 有 过 程 mitModule 创建 MWComDUtl 类 的 一 个 实例 ， 并 且 用 Application 的 一 个 变量 调用 
MWTInitApplication 方法 ， 一 旦 此 栅 数 完成 ， 所 有 后 面 的 调用 将 在 不 重新 初始 化 的 情况 下 退出 ， 

本 代码 与 创建 组 件 时 创建 的 VBA 模块 中 的 默认 初始 化 代码 相反 ， 每 个 使 用 MATLAB 
Excel 生成 器 组 件 的 钞 数 都 可 以 在 开始 处 包含 一 个 对 initModule 函数 的 调用 ， 以 保证 初始 化 工 
作 总 是 在 必要 的 时 候 进行 。 
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Dim MCELUH] As CObject 
Dim bpMeoduleInitialized 点 s 了 ooleanm 


Private Sub TnitMeodule 
开 NotbModalelnitalized Thet 
Da Error GoTo Handle_Enmor 
开 RMCLU Is Nothing Then 
Set MCLUUI = CreateDbject MYWComUGLMYVUUIL ) 
End 和 于 
Cal MCLUHLMWTInitApplication(Applicationy 
bModuleInitialized = Teue 
Exit Sub 
Handle_Brror 
bMeodulefinitialized = False 
End 下 
BEBnd Sub 


13.2.2 ”创建 类 的 实例 


调用 类 的 方法 以 前 ， 必 须 创 建 一 个 包 会 方法 的 类 的 实例 ，VBA 提供 了 两 个 技巧 来 做 这 件 
事情 : 

se CreateObject 函数 ; 

# New 操作 符 。 


1，CreateObjsect 函数 

本 方法 使 用 Visual Basic 应 用 程序 接口 (APIT) 的 CreateObject 函数 创建 类 的 实例 。 要 使 
用 本 方法 ， 需 要 定义 一 个 Object 类 型 的 变量 作为 类 实例 的 引用 ， 并 将 组 件 的 ProgID 作为 变量 
调用 CreateObject 冰 数 。 如 下 例 所 示 ， 假 设 有 一 个 ProgID 为 “mycomponent.myclass.1 0” 的 
组 件 ， 利 用 CreateObject 本 数 创 建 该 组 件 中 myclass 类 的 一 个 实例 ， 


Fuhnectieon taxXL As Variant xz As waranb 和 5s Variant 
Dim aass 上 8 Object 


On Emor 如 eto Handle_ Emor 
acClass = CreateObject( "imycorttportentInyclass.1 0 
(调用 acClass 的 一 些 方 法 ) 
Exit Funcuon 
Handle_Error: 
foo = ErrDescription 
End Function 


2. New 操作 符 

本 方法 使 用 New 操作 符 创 建 类 的 实例 。 在 使 用 本 方法 以 前 ， 必 须 使 用 当前 VBA 工程 中 
包含 该 类 的 类 型 库 。 要 做 到 这 六 点 ， 在 Visual Basic 编辑 器 中 选择 “工具 ”菜单 ， 再 选择 “ 引 
用 .…” 选 项 ， 显 示 “ 引 用 ” 弄 话 框 。 然后 ， 从 该 对 话 框 中 选择 必要 的 类 型 库 。 

下 面 的 例子 演示 如 何 使 用 New 换 作 符 创建 一 个 类 实例 ， 假 设 在 调用 本 函数 以 前 从 “可 使 
用 的 引用 ”列表 框 中 选择 了 “mycomponent 1.0 Type Library” 选 项 。 
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Funetion 名 ofX1l 和 ss Varianb x2 As Varnant) 点 s Variant 
Dim acCilass As Inycotnponent.myclass 
ODn Er Goto Handie_Error 
Set aflass = Mew mycompotnent.myclass 
(调用 acClass 的 一 些 方 法 ) 
Exit Function 
Handqle_Ermor: 
foo = ErDescnption 
End Function 
本 例 中 ， 类 实例 定义 为 myclass， 完 整 的 表达 形式 为 <cemponent-name>,<class-name>， 它 
保证 在 当前 工程 的 其 他 库 中 包含 名 为 myclass 的 类 时 不 会 出 现 名 称 冲 突 。 
两 种 方法 在 施 数 于 是 等 价 的 ,第 1 种 方法 不 需要 引用 YBA 工程 的 类 库 ， 第 2 种 方法 可 以 
获得 更 快 的 运行 效果 ， 
在 前 面 两 个 例子 中 ， 用 于 方法 调用 的 类 型 是 一 个 过 程 的 局 部 变量 ， 它 为 每 次 调用 创建 和 
拆卸 一 个 新 的 类 实例 ， 另 外 ， 人 也 可 以 将 它 声明 为 一 个 模 冉 级 类 实例 ， 这 样 它 就 可 以 被 所 有 的 
函数 调用 和 重复 使 用 ， 就 像 前 面 例子 中 的 初始 代码 一 样 ， 如 下 所 示 。 


Dim acClass As mycombonentmnyclass 





Funection foofxl As Variant, X2 上 Ss Variant) 各 5 Wariant 
Dan Emor 心 oto Handle Error 
让 acClass Is Nothing Then 
Set at lass = Mew Inycomhponent.Inyclass 
End 开 
(调用 aclass 的 一 些 方法 ) 
Exit Function 
Handle Eror' 
foo = ErrDesenption 
End Function 


13.2.3 ”调用 类 实例 的 方法 


创建 类 实例 以 后 ， 可 以 调用 类 的 方法 来 获取 编译 过 的 MATLAB 函数 。 

当 方 法 有 输出 参数 时 ， 第 1 个 变量 总 是 nargout， 它 的 数据 类 型 为 Long， 这 个 输入 参数 传 
递 一 般 的 MAITLAB nargout 参数 给 编译 函数 ， 并 且 指定 要 求 有 多 少 个 输出 参数 ， 没 有 输出 参 
数 的 方法 不 传递 nargout 参数 ，mnargout 参数 是 输出 参数 ， 列 在 原始 MATLAB 函数 的 左 侧 ， 紧 
接着 的 输入 参数 列 在 右 侧 , 所 有 输入 和 输出 参数 都 是 Variant 类 型 的 ， 为 默认 的 VB 数据 类 型 。 

一 般 地 ， 除 了 用 户 自 定义 类 型 外 ， 可 以 给 类 方法 提供 任何 VB 类 型 作为 参数 。 也 可 以 下 
接 传 递 Excel 的 Range 对 象 作为 输入 和 输出 参数 。 

下 例 演示 从 VBA 向 MATILAB Excel 生成 器 组 件 类 方法 传 遂 输入 、 输 出 参数 的 过 程 。 

第 1 个 例子 是 一 个 会 式 函 数 ， 它 有 两 个 输入 ， 一 个 输出 。 

Fanction ja(zIl AS Wariant 2 上 Variant As Variant 


Dim acCjlass As Object 
Dim y 上 As Varniant 





Or Error Goto Handle_RBrror 
af-185s = CreateObject "mycomporent.myclass.1 人 0"》 
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人 al] aC]ass.foe[1 wx.X2) 
foo=y 
了 xit Fnoncton 
Hamndle_Brror: 
foo = ErmDeseription 
End Funetion 


第 2 个 例子 用 过 程 代 蔡 原来 的 函数 ， 并 昌 用 Excel Range 作为 输入 和 输出 。 


Sub foofRout 点 s 民 ange, 及 in] 各 8 及 ange, 及 in2 各 8 Range)》 
Dim aClass As Object 


Cn Eror Gaotoc Hatndle_Error 
acCiass = CreateDbjecft tmycomponent,myclass.1_0") 
人 aaClass.footlRout,Rinl,Rin2) 
Exit Sub 
HRandle_Eror 
RisgBoxEr Descniption) 
End Suh 


13.2.4 处 理 varargin 和 varargout 参数 


当 原 始 MATLAB 冰 数 中 存在 varargin 和 /或 varargout 时 ， 这 些 参数 将 作为 列表 中 最 后 的 
输入 /输出 参数 被 添加 到 类 方法 的 参数 列表 中 ， 可 以 创建 一 个 Variant 型 数组 。 指 定数 组 的 元 素 
为 各 个 输入 参数 ， 并 用 该 数组 进行 传递 ， 

下 面 的 例子 创建 一 个 varargin 数组 ， 以 便 调用 一 个 由 形 如 y=foofvarargin) 的 MATLAB 函 
数 生 成 的 方法 。 

Fonction fo AS Wariant xX2 As Variant X3 生 8 Waraint， 
了 4 上 Variant, x5 和 ss Wariant) As Wariant 
Dim acClass As CObjeet 
Dim vfT To 5 各 s Variamt 
Dim y 贞 8 Variant 


Cn BRror Gotio Randle_Ermroy 
VC = X1 
Y(2y = X2 
vY(3} = 3 
fd4) = X 
V{S) 一 XS 
8f]ass = CiealeODhbject( mycombonent.myclass.1_ 0 
人 aa iass.footl yw 
foo=y 
Exit Runcetion 
Handle_Error 
foo = ErrDescnption 
Enq Funceoety 


MWComU 名 工具 库 中 的 MWUtil 类 提供 了 一 个 MWPack 帮助 函数 来 创建 vararsgin 参数 。 
下 人 面 的 例子 将 一 个 varargont 参数 分 成 3 个 Excel Range 参数 ，foo 过 程 用 到 了 工具 库 中 的 
MYWUnpack 函数 ， 用 到 的 MATLAB 函数 为 varargout=foofxl,x2) 
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Sub foofRoutl As Range, Rout2 点 s Range, 及 ou 人 As Ramnge _ 
Rinl As Range, Rin2 As Range) 
Pam aClass As DObiect 
Dim aUtil As Dbject 
Dim v As Wariant 


On Ermor Got Handle_Error 
aUtil = CreateDbjectf MYComUtilMWUtl”) 
acClass = CreateObjectl tnycomponent.myclass.1_0) 
(ai aClassfoof3,vRinl,Rin2) 
Cail aUtlMWYUnpackv0 True,RRoutl,Rout2 ,Ront3) 
Exit SnDb 

Handle_Error: 
MsgBox(EirDescribtion) 

End Sub 


13.2.5 在 调用 方法 的 过 程 中 控制 错误 


创建 类 实例 或 调用 类 方法 时 如 果 发 生 错 误 , 将 在 当前 过 程 中 创建 一 个 Exception 标记 。 VB 
在 声明 On Eror Goto <label> 的 过 程 中 提供 一 个 Exception 了 瑞 来 控制 兼容 性 ， 发 生 铺 误 时 中 至 
<label> 行 ， 所 有 的 错误 都 通过 这 种 方式 来 控制 ， 包 括 原 始 MATLAB 代码 中 的 错误 。 


13.2.6 ”修改 标记 


每 个 MATLAB Excel 生成 器 组 件 提 供 一 个 MWRlags 类 型 的 名 为 MWPlags 的 单一 读 写 属 
性 。MWFlags 属性 由 两 部 分 组 成 ， 数 组 格式 化 标记 和 数据 转换 标记 。 数 据 转换 标记 改变 数据 
从 Variant 型 向 MATILAB 类 型 转换 或 相反 时 的 行为 。 默 认 时 ，MATLAB Excei 生成 器 组 件 多 
许 在 类 的 水 平 上 通过 MWEFlags 类 属性 设置 数据 转换 标记 。 本 小 节 讨 论 如 何 设 置 这些 标 记 。 


1. 数组 格式 化 标记 

数组 格式 化 标记 引导 数据 转换 ， 以 生成 一 个 源 于 一 般 Variant 型 数据 的 MATTAB 单元 数 
组 或 矩阵 作为 输入 , 或 生成 一 个 Variant 型 数组 或 包含 基本 类 型 数组 的 单一 Variant 型 数据 作为 
输出 。 

下 面 的 例子 根 设 已 经 引用 了 当前 工程 中 的 MWConmUtil 库 。 


Sab foof ) 
Dim acClass As mycomponent.myclass 
Dim varlt1 To 3, 1 To 2 vara 丰 s Warjant 
Dim xf1 To 2 1 To 2) As ioubhte 
Dim yl1,y2 As Wariant 


Da Error Coto Handle_FErer 
Varlfi,1)7 = 于 [并 

Yarifl, 2 = T2 骆 

Yarl(2,1) = 21] 并 

Vaflf2.2} = 一 22# 

Xil,1)= 11 

XI = 1 

Xf2,1)=21 


2DD。 








X2 区 =22 
Vi2 一 基 
Set aClass = New myecormnporent myclass 
Call aClass.foel1,y1.vsr1) 
Cal] aCjass.foof],y2,var2) 
Exit Sub 
条 andle_Error' 
RsgBox(EIDescfiptian) 
Eng Sub 


这 里 ， 两 个 Variant 型 参数 ， 即 varl 和 var2 由 相同 的 数组 数据 创建 ， 但 它们 的 结构 不 同 。 
varl 是 2X2 的 数组 ,每 个 元 束 包 含 一 个 1X1 的 Double 型 狼 据 ,而 var2 是 一 个 1X1 的 Variant 
型 参数 ， 该 参数 包含 一 个 2x2 的 值 为 Double 型 的 数组 。 根 据 默 认 的 数据 转换 原则 ，varl 转 
换 为 2X2 的 单元 数组 ， 每 个 单元 为 1X1 的 Double 值 ，var2 直接 转换 为 2x2 的 Double 型 矩 
阵 。InputArrayFormat 标记 控制 转换 这 两 个 类 型 得 到 的 公式 。 就 像 输 出 结果 一 样 ， 前 面 例子 中 
的 两 个 数组 都 转换 为 Double 型 第 阵 了 ， 固 为 InputAmayFormat 标记 的 软 认 值 是 
mwArrayFormatMatrix。 使 用 本 默认 值 是 因为 ， 就 像 输出 结果 一 样 ， 源 于 Excel Range 的 数组 
数据 总 是 以 Variant 型 数组 的 形式 存在 (就 像 前 面 例子 中 的 varl 一 样 )， 而 且 MATLAB 冰 数 经 
常 处 理 矩 阵 套 数 。 但 是 如 果 需 要 的 是 单元 数组 ， 则 将 inputArrayFormat 标记 设置 为 
ImwArrayFormatCell。 在 创建 类 以后 ， 调 用 方法 以 前 添加 下 面 的 代码 行 ， 

at[asg .MWTFlags.AlIrayFormatPlags,ImputArrayFormat = 
mwArayFormatCel 

类 似 地 , 可 以 用 OutputArrayFornmat 标记 改变 输出 参数 的 格式 , 也 可 以 用 AutoResizeOutput 
标记 和 立 ansposeOutput 标记 修改 数组 输出 。 

AutoResizeOutput 用 于 Excel Range 对 象 ， 它 被 直接 传递 给 输出 参数 。 设 置 本 标记 以 后 ， 
且 标 范围 自动 改变 大 小 ， 以 拟 合生 成 的 数组 ， 如 果 没 有 设置 ， 则 月 标 范 围 必 须 至 少 与 输出 数 
组 或 数据 大 小 一 样 。 

TransposeOutput 标记 转 置 所 有 的 数组 输出 , 当 MATLAB 函数 的 输出 为 一 维 数组 时 ， 这 个 
标记 很 有 用 。 默 认 时 ，MATTLAB 把 一 维 数 组 作为 1Xz 的 扼 阵 〔〈 行 矢量 )， 在 Excel 工作 表 中 ， 
它 占 据 行 的 位 置 。 

下 面 的 例子 自动 改变 矩阵 大 小 并 转 置 一 个 输出 范围 。 


Sanb foofRerdt 由 s 及 ange, 疏 训 页 及 ange 》 
Dim acClass As mycomponent.InyClass 


On EmoT Goto Handle_Error 
Set aClass = New mycormiponettt myelass 
atlass.MWFjags-ATrayFormatFlags.AutoResizeOhtput = True 
af-lass-.MWTFlags.AtrayFormatFlags.TransposeOutput = True 
人 al alassfoofl,RoutRin) 
Exit Suhb 

Hand 拉 Erreor: 
MasgBox(ErDescriptiom) 

End Sub 
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2 数据 转换 标记 
数据 转换 标记 处 理 数 组 元 素 的 类 型 转换 。CoerceNumericToType 和 InputDateFormat 两 个 
数据 转换 标记 控制 数值 和 日 期 类 型 如 何 从 VBA 转换 到 MAITTABE。 
考虑 下 面 的 例子 : 
Suhb foof ) 

Dim aClass 点 s mycomponent.myclass 

Dim varl, var> 上 8 Variant 

Dinm y As Waiiant 


On Error Goto Handte_EBrror 
Yarl = 工 
vat2 = 3 天 
Set alass = New IEYCOrIPOheTtIIYC1aSS 
Cali acClass fooftyYvyarlvar2] 
Exit So 中 
Handie_RBrror: 
MsgBox(Er Descrniption) 
End Sub 
本 例 将 VariantInteger 型 的 varl 转换 为 nt16 型 , 将 VarianVDouble 型 的 va 经 转 换 为 Double 
型 ， 如 果 原 始 的 MAITAB 函数 希望 有 两 个 Double 型 作为 输入 ，- 上 面 的 代码 导致 错误 ， 解 决 
的 方法 是 将 varl 指定 为 Double 型 。 但 这 可 能 很 难 办 到 。 此 时 ， 将 CoerceNumericToType 标记 
设置 为 mwTypeDouple， 让 数据 转换 器 将 所 有 的 数值 输入 转换 为 Double 型 ， 在 前 面 的 例子 中 ， 
创建 类 以 后 ， 调 用 方法 前 添加 下 面 的 代码 行 。 
alass .MIWFlags,DataConversionFlags.CoerceNumericToType = 
mwTypeDouble 
InputDateFormat 标记 芒 制 VBA Date 型 数据 的 转换 方式 。 本 例 将 当前 的 日 期 和 时 间作 为 
一 个 输入 参数 进行 传递 ， 并 转换 为 字符 妹 。 
Sat foof ) 
Dim aCilass 上 As myeormponent Imyeclass 


Dim today 点 8 Date 
了 im y 点 s WaTiant 


On Eror Goto Handle_Error 
today = Now 
Set aCiass = New ImycompomentIinyclass 
acClass, MWFlags.DataConversionFiags.InputDateFormat = 
ImwDateFeormatString 
Cal aClasi.foofjl,yitoday) 
Exit Sub 
和 andle_Emor: 
MsgBoxf(ErDescriptioon) 
End Sub 


本 例 中 第 1 个 条 出 参数 yl 转换 为 Date 型 ， 第 2 个 输出 参数 2 使 用 aClass 提供 的 默认 转 
换 标记 。 
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13.3 ”魔方 示例 


13.3.1 一 个 输入 的 情况 


M 文件 mymagic 有 一 个 整 型 输入 ， 它 指示 所 创建 的 魔方 的 大 小 。Excel 文件 mymagic.xls 
用 3 种 不 同 的 方式 使 用 它 。 

第 1 种 方式 调用 函数 mymagic， 参 数 为 4。 该 函数 返回 一 个 大 小 为 + 的 魔方 ， 并 用 该 魔方 
填充 一 个 Excel 范围 。 

第 2 种 方式 使 用 转 轩 标记 对 大 小 为 4 的 魔方 进行 转 置 。 

第 3 种 方式 更 改 得 出 的 大 小 并 在 Excel 工作 短 中 移动 它 。 

注意 : 首先 把 <MATLAB>vtoolboxMATLABXl wxamplesxlmnagic 中 的 目录 Xlimagic 复制 到 
<MATLAB>\wo 呈 中 。 


1. 创建 工程 

从 MATILAB 命令 行 提 示 中 将 是 录 改 变 到 <MATLAB>vwork 。 输 入 命令 mxltool， 启 动 
MATILAB Bxcel 生成 器 图 形 用 户 界面 。 从 “File” 菜 单 中 选择 “New Project” 选 项， 打开 “New 
Preoject Settings” 对 话 框 ， 如 图 13-2 所 示 。 

在 “New Project Settings” 对 话 框 中 按照 直面 的 步骤 进行 设置 。 

(1) 在 “Component name” 文 本 框 中 输入 组 件 名 “xlmagic”， 通 过 单 击 “Tab” 键 将 光标 
移 到 “Class natme” 文 本 框 中 。 

[2) 自动 用 名 称 “xlmagic” 填 充 “Class name” 文 本 框 。 

3) 版 本 号 接受 默认 设置 ， 即 为 1.0。 

4) 在 “Project directory ”文本 框 中 和 输入 组 件 的 保存 目录 路 径 。 软 认 时 为 
<MAITLAB>vworkk， 后 面 添 加 组 件 名 xlmagic。 其 中 ，<MATLAB> 为 MATLAB 的 安装 目录 。 
可 以 改变 是 录 ， 如 果 输 入 的 目录 不 存在 ， 则 系统 会 提示 你 是 否 创 建 一 个 目录 。 

《3) 单 击 “OK” 技 钮 ， 创 建 xlmagic 工程 。 - 


2.， 生成 组 件 

生成 组 件 按照 以 下 步 枝 进 行 。 

(1) 从 Excel 生成 器 图 形 用 户 翼 面 中 单 击 “Add File...” 按 钮 

(2) 从 <MAITLAB>workximagic 目录 中 选择 文件 mymagicm， 并 单 击 “Open” 按 钮 , 
(3) 从 “Build” 菜 单 中 单 击 “Build” 或 选择 “ExceHMCOM Files” 

《4) 给 Excel 中 添加 Excel 生成 器 COM 函数 。 

《5) 启动 Excel。 

(6) 打开 文件 <MAILAB>workxlmagicumymagic.xls。 


3. 组 件 应 用 演示 

(1 ) 演示 在 Exceel 中 输出 魔方 

在 Excel 主 窗 吕 〈 不 是 Visual Basic 编辑 器 ) 中 同时 选择 “Alt” 键 和 “F8” 键 ， 或 从 “ 工 
其 ”菜单 中 选择 “ 宠 ” 选 项 ， 然 后 从 子 菜单 中 选择 “ 宏 ” 选 项 ,在 列表 中 选择 “mymagic” 并 
单 击 “ 执 行 ”按钮 ， 本 过 程 返 回 一 个 大 小 为 4 并 从 B2 开始 的 魔方 ， 如 图 13-4 所 示 。 
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国 呈 宗主 He 下调 隐语 攻 fi 间 有人 PH | 古称 面 让 帮 全 | 
末日 寺 返 回 徊 Bael 工作 辣 的 魔方 
【21 济 示 转 置 诊 出 
重新 打开 “ 宏 ” 对 话 框 ， 选 择 mymagie_iranspose 宏 间 单 击 “ 执 行 ” 技 钮 ， 本 过 程 中 ， 
个 大小 为 上 的 厢 方 发 生 转 填 ， 它 的 起 始 位 置 是 BI4， 如 图 13-5 所 示 。 





上 昌 的 旺 而 和 扩 RE 计生 下 “而 闻 作 生 衣 雪 _T 本 的 本 本 ”下 和 芝 仁 
后 请 和 和 本 匡 半 夺 加 本 呈 昌 这 用 本 时 且 有 PUg 二 1 
百 避 上 半 | 站 hi 址 时- 世 二 7 

总 本 | 让 下 本 全 站 刘 例 局 于 有 有 条 MT 机 二 二 引 半 Fi 相 | 


图 13- 圣 转 昨 后 的 寿 坟 
{31 镁 示 下 届 村 出 的 二 小 
重新 打开 “ 宕 ” 财 话 棋 ， 赵 择 Pinagie_mesae 过 ， 单 击 “ 执 行 ”按钮 ， 二 过 程 运 加 一 个 
赤 小 为 才 的 魔方 ， 起色 位 管 为 B32， 特 下 32 中 的 二 酸 为 一 个 更 去 的 值 ， 重 晰 运行 这 椒 衬 ， 谍 
贺 一 个 刚刚 指定 太 小 的 谭 太 ， 起 始 位 置 是 B32， 如 图 13-6 所 示 。 


1 贞 击 让 村 画 量 和 有 二 由 前 时 让 站 让 后 本 “于 请 让 生 庆生 和 二 本 

外 二 下 恒隆 | Tai 去 而 和 4 二 是 和 且 吉 而 Te 用 

1 病员 | 牛 二 目 二 和 TENr 间 时 四 总 时 直 关 四 可 Ti 全 Tar1g 
[ET 







四 ， 可 间 呈 天 到 
可 站 到 往 和 直 | 目 
二 吕 三 区 于 大 可 关 
本 近 隐 采 泗 计 罚 
Di 全 “二 二 站 二 证 下 才 
下 总 轧 站 本 记 个 
吗 二 记 时 驹 四 析 
汪汪 二 是 国 时- 由 生机 古本 生 | 二 光一 于 | 


重 13 王 不 变 友 涉 后 的 古方 


【41 昔 酒 Aual Basie 履 故 

在 Exceal 主 窗 喇 中 ， 从 “工具 ”草草 中 选择 “ 害 ” 划 单项， 屿 后 在 子 蓝 单 惠 单 击 关 人 aaal 
Basic 师 辑 赋 ”和 项 ， 打 开 Visual Basis 访 辑 如 ， 梧 图 他 -7 所 示 ， 

在 Visual Basjec 编辑 器 中 , 在 "工程 -VBAProjkeel "窗口 中 双击 , 履 开 二 程 VBAProlectimymnagicisj， 

展开 Madules 支 件 亮 并 下 击 Medulel 模 换 。 打 开 “YWBCode 窗口， 显示 幸 工 程 的 代码 ， 


二 二 亲本 






辣 击 上 刘 时 目下 有 瑟 且 大 下 让 
机 人 
世人 
让 可 中 有 下 生计 部 下 
画 二 0 居 EL 全 有 本 有 Ca 二 人生 本 二 所 目 二 全 直到 二 有 中 四 业 - 古村 让 | 
而 上 而 了 
人 卫生 5 生机 相 汪 
站 再 汪 本本 也 本 上 辣 率 呈 日本 二 让 起 者 寺 二 


四 国语 攻 本 站 有 并 本 二 目下 证 本 二 证 硬 了 症 
圈 133 了 Wiaal Basie 辆 四 由 入 口 


13.3.2 居 用 多 个 文件 和 变量 


7 册 误 件 更 Ia 有 一 个 整 型 输 六 ， 荔 翁 是 面 一 条 从 1 到 读 娄 字 的 直线 朋 。 

【2 ML 玄 件 惠 ysum 有 一 个 整 型 的 va 二 估 办 六 ， 动 能 是 求 所 有 数字 的 和 间 返 回 早 果 ， 

【3 Mi 去 件 症 Yines 才 一 个 单 精度 性 型 输入 下 运 回 所 有 小 于 或 等 二 的 束 数 ， 

【4 Eeel 支 件 三 ymultixls 二 过 凶 种 方式 来 请 示 这 些 风 误 件 。 

注意 ， 开 妈 前 ， 和 将 日 最 glmuld 从 = MATLAG2WoclboaMATLABXIeAariPleswlnmnilti 旧作 | 
运 取 人 生生 于 =Wwaf 全 ， 


1， 创 建 工程 

从 MATLAH 向 地 行 手 示 中 格 目 录 改 变 为 <MATLABovwortk， 输 六 而 令 mxltool， 启 动 
MATLAB Exeel 生成 器 图 开 用 户 界 面 。， 从“Eila” 莹 昔 中 谴 择 ”New Erajeef 打开 “New Project 
Sattings 对话 框 。 碍 饺 对 话 要 中 ， 技 好 下 面 的 步骤 进行 疫 蛙 。 

1 在 *Component name” 文本 借 中 输入 给 件 儿 则 mult。 单 击 "Tabh" 键 将 光标 称 到 “Class 
name” 嘉 本 框 中 。 

f21 此 时 “Clasmarmes 支 未 模 中 已 烃 自 动 填 充 了 灶 履 lmiuii， 平 改变 官 。 

131 版 本 棱 周 认 设 时 ， 为 1 

(41 在 “Projectdieetom” 误 本 枢 中 畏 六 工程 更 保存 的 己 置 ， 

(51 单 击 “ 品 芝 ”按钮 ， 公 建 提 wuli 工程 ， 


2， 生 成 组 储 

捷 册 愉 下 和 步 邓 生成 组 件 。 

(17 查 Bxeel 生 成 器 画展 用 户 恒 面 让 单 击 “A 昌 File ” 炉 馈 ， 

(31 了 从 目 最 <WMATLABsWAGNES al 革 中 过 择 误 件 而 YRlat， 间 单 击 “penr” 按钮 。 
31 重复 上 面 的 步 对 ， 语 抽 训 人 忻 奋 WEiimnaas 而 和 | 击 WUmi mn 

【1 单 击 “Bdild” 接 本 或 上 “Build” 萤 单 中 选择 “ExeeuCOM Files 款项。 

[5) 特 Exeal 生成 占 COM 函数 话 抽 到 seel 申 。 

【67 启动 | 蕊 Neejs 

【7) 打开 误 件 <WMLATLABsWGaktaliadltiWniaila Els， 贡 图 13-8 有 未 。 


和 和 [4 









上 号 直人 ;mmYplot 
全 丽 二 而 下 和 本 直 而 本 生 本 | 于 村 站 让 二 下 是 人 寺 可 竺 ee 
1 十 本 南 丙 二 面部 亲本 本 本 本 1 站 二 下 二 日 昌 请 和 


下 站 下 ea 在 辣 本 和 中 并 同 1 硬是 站 和 二 古书 击 厅 本 时 站 可) 
到 天目 


[ f 司 如 


提 BEEE -本 和 衣 亲生 是 4 计生 辐 全 本 时 < 本 
| 昼 : 南 司 询 村 条 本 本 于 插 全 | 的 于 于 人 
] 了 机 蝇 


卫 了 几 上 务 已 中 
于 于 了 


有 ET 
可 画 1 本 1 


图 Sample: myprirmes 


人 
[| ar 
LT TEL 本 
国富 TE 再 本 村 革 = e 1 中 二 利他 克 全 量 th 可 | pei 


0 


图 干 “ 曾 Yimtaltigls” 喜 情 


3， 诅 件 让 用 演示 

1 11 演示 调用 mmyglot 盐 避 

在 未 该 示 中 ， 调 用 天 数 为 4 的 myplat 函数 。 要 运行 该 范 数 ， 鸽 A7 成 为 微笑 的 单元 ， 单 
击 “FE "， 灼 后 单 击 回 车 刍 ， 如 围 143.9 所 未 。 





国 13.9 钢 用 myplat 台 【 考 数 育 呈 1 


让 过程 在 MATLAB 图 形 军 口中 辆 六 从 1 到 的 直 战 段 ， 如 圈 13- 考 所 示 ， 

【31 戎 示 几 二 种 方 或 禁用 四 Ygum 函 鬼 

本 谊 示 通 过 4 种 方式 畔 用 mywaum 函数 。 第 1 种 方式 【单元 上 本 中 各 工 到 人 的 整数 的 
和 和， 返回 结 果 5。 第 2 种 方式 【单元 A19) 考虑 单元 范围 ， 单 元 中 的 值 从 1 到 10， 返 回 结果 
5。 第 了 种 方式 【单元 贞 划 ) 于 儿 个 范 围 对 银 相 如， 返回 结果 120， 第 站 种 方式 【单元 二 30) 
考虑 Tange 对 象 和 值 ， 求 它们 的 和 并 返回 知 果 16， 如 图 13-11 所 示 ， 

本 冰 数 在 Exeal 玄 件 打开 时 运行 。 





图 本 -二 ypiai 国 于 输 也 


Sample' mysum 


1 辣 生 下 8 本 晤 本 w 让 二 | 本 本 让 二 司 和 二 直下 二 二 震 | 革 三 | 
环 理 器 目 疝 机 大 
人 









证 丰 和 旦 本 本 吉 有 二 有 十 | 辣 大 击 直 了 是 用 本 本 旦 寺 了 生 看 本 后 
本 本 EE9 和 95 所 全 | 全 上 二 
五 玫 有 L 二 生 利 昌 利 昌 时 


十 | 相 寺 二 ma 下 站 机 量 本 本 硬 三 直上 5 有 ES 下 1 和 9 和 二 昌 二 二 
汪汪 作 埋 有 后 本 下 一 上 RS 衣 下 有 证 让 各 有 本 全 汪 1 有 9 1 有 计时 用 寺 
E 量 轩 笃 目 于 是 
芽 里 
本 


站 了 色 目 直 时 


有 归 


和 
生 下 ] 


全 必 1 三 Yaums 冰 数 的 站 种 调用 方式 
131 编 示 myprimas 富 
本 演示 中 ， 室 myprimes 调用 函数 myprimes.m， 御 值 为 单元 A42 中 的 10。 该 函数 返回 所 
有 未 于 艺 的 素数 到 昌 科 一 E42 的 单元 后， 各 图 1312 所 示 。 
Sarmple: rmyprirmes 


人生 全 让 
汪汪 Eee 
人 
苹 13-13，Wptimes 这 
要 运行 本 室 ， 在 Excel 主 窗口 【而 不 是 Wisual Basic 护 加 里) 中 同时 技 下 “Alr” 链 和 “F8” 
键 ， 或 从 “工具 ” 划 章 中 选择 “ 宏 ” 挝 项 ， 类 后 从 子 菜单 中 趟 择 “ 室 * 选项 ， 从 列表 中 选择 
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smypiimes” 阁 单 击 “执行 ” 技 钮 ， 早 果 如 图 13-13 所 示 ， 
吕 Sample: myprimes 








上 

一 | 二 词 ] jb 本 二 上 站 天 和 而 ft 全 于 二 二 和 于 

昌 刘 站 二 才 1 训 9。 和 者 EL 和 人 Ti 时 5 关 | 风 和 mi 1 和 | 重生 个 
蕊 而 册 站 HP 是 HE 直下 fy 本 的 于 站 ET 生 半 时 计量 后 1 有 9 省 凤 旧 


闻 四 严 王 一 二 二 一 二 -二 二 二 王国 本 本 -一 一 一 下 


图 a: 二 ”恒生 于 人 0 时 mimes 的 输 册 。 


如 果 输 出 内 容 太 于 指定 的 输出 范围 ， 则 本 函数 会 自动 改变 大 小 ， 将 单元 A42 中 的 值 改 变 
为 一 个 大 于 垃 的 值 , 央 后 重 困 运行 宏 , 把 所 有 小 于 该 值 的 素数 返回 到 单元 A42 中 , 如 图 13-14 
所 未， 


一 
国 国 CAUTON PR 交 和 二 上 二 时 辣 机 二 机 UL DR | 
na ed 天 SRE 
峡 ii 区 去 于 境 友 myfrimes 的 输出 

[二 罕 酒 Wisial 有 aagice 全 玛 

村 看 Visual Basie 代码 按照 以 下 步 纵 进行 ， 

加 在 Exeel 中 ,从 “工具 * 昔 单 中 选择 “ 宏 " 昔 单 ， 鳅 后 在 其 于 菜单 中 选择 “Wisual Basi 
访 辑 器 ”选项 ， 

夯 在 Viail Basic 编辑 器 中 的 “工程 -VBAprmijeet” 规 口 册 展开 工程 “VBAEProject 
TI 天 |s) 

司 展开 “Moctules” 文 伞 涨 并 戏 击 “Moduleiy 模 志 ， 打 开 VB 代码 窗口 。 窗 口中 显示 本 
工程 的 所 有 代码 ， 姑 图 13.15 所 示 。 
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13.4 谱 分 析 示 例 


本 示例 演示 如 何 通 过 创建 一 个 复 条 的 BExcel 播 件 来 进行 谱 分 析 。 演 示 这 个 实例 , 需要 Wisual 
Basic 窗 体 和 控件 以 及 Excel 工作 狂 事 件 方 面 的 知识 。 

本 例 通 过 创建 一 个 Excel 播 件 来 演示 快速 傅立叶 变换 (FFT)， 其 输入 煞 据 从 指定 的 Excel 
工作 竹 范 围 中 获取 。 本 函数 返回 一 个 FFT 结果 、 一 个 频率 点 数组 和 输入 数据 的 功率 谱 密度 。 
它 把 结果 放 到 当前 工作 夭 中 指定 的 范围 内 。 可 以 有 选择 地 用 图 形 显示 功率 谱 密 度 。 可 以 从 
Excel 的 “工具 ”菜单 中 调 漂 开发 的 函数 ， 并 通过 图 形 用 户 界 面 来 指定 输入 和 输出 。 

创建 Bxcel 播 件 按照 以 下 步骤 进行 。 

(1) 从 MATLAB 代码 中 创建 一 个 独立 的 COM 组 件 ， 

(2)》 实现 必要 的 VBA 代码 来 完成 输入 和 对 组 件 的 调用 。 

(3 伸 建 图 形 用 户 界 面 。 

(4) 创建 一 个 Bxcel 播 件 并 对 所 有 必要 的 组 件 进行 打包 。 


13.4.1 创建 组件 


要 创建 的 组 件 有 疯 种 方法 ， computefftt 和 plotii。computeft 方法 计算 FFT 和 输入 数据 的 
功率 谱 密 度 ， 并 计算 基于 所 输入 数据 的 长 度 和 采样 间隔 的 频率 点 矢量 。Pplottft 方法 完成 同样 的 
操作 ， 另 外 还 在 MATLAB 图 形 窗口 中 用 图 形 显示 输入 的 数据 和 巧 率 谱 密度 。 这 商 种 方法 的 代 
码 分 别 放 在 两 个 M 文件 中 ， 即 computefftm 和 plotffm。 


compDatefrkon: 
function ffftdata, freq, Powerspect] = computeffttdata, interval) 
ffigempty(data)y) 
俯 qata = 由 : 
freq = 日 
Powerspect = 『; 
Fetuzni 
ed 
让 (nterval <= 0) 
erOT Sampling interval tmnst be greater then zero); 
FEtnrmn， 
ehd 
在 tdata = fdata]; 
fredq = (Olengthftttdataj-iyrlengthffftdata)*intervd) 
Powerspect = absffftdata)jlsqrt(length(fftdata7) 


plottftm: 

加 nction [fitdata, freq, powerspec = Piotffttdata interval) 
[fftdata, freq, powerspect] = cotttputefftfdata, interval)， 
jen = ]engthffttdatay; 

这 (en <= 信 
Tetum; 
engd 
t = 0:interval:let-1)*intervah， 
SbHIO 杖 2.1, plotkt datay 
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XEHabelC Tirme )， gd on 
titefTine domain signal) 
subplotk2,1.2h Pilottfreqfl:lenr2h PDwWerspect[1:lenP2) 
Xlabelf Frequency (TI[z]) ,上 jd on 
titlef Power Spectral denasity ) 
按照 以 下 步骤 创建 组 件 。 
《1) 局 动 eomtool。 
《2) 用 下 面 的 庶 置 创建 一 个 新 的 工程 : 
组 件 和 名 :， Fourier 
类 和 名: Fourier 
工程 版 本 : 1.0 
选择 “Use Handle Graphics library” 核 选 杠 
《3) 把 computefftm 和 plotfftm 添加 到 工程 中 。 
《4) 保存 工程 ， 
《5》 单 击 “Baild” 按 钮 ， 完 成 创建 组 件 。 


13.4.2 ”将 组 件 集成 到 VBA 中 


组 件 建 好 以 后 ， 可 以 实现 必要 的 VBA 代码 ， 将 它 集 成 到 Exeel 中 去 。 按 照 下 面 的 步骤 打 
开 Excel 并 选择 必要 的 库 文 件 开 发 揪 件 。 

1) 启动 Excel。 

(2) 从 Excel 主 菜单 中 ， 接 顺序 选择 “工具 ”一 “ 宏 ” 一 “Wisual Basic 编辑 器 ”， 启 动 
Excel 的 Visual Basic 编辑 器 。 

(3) 在 编辑 器 的 “工具 ”菜单 中 选择 “引用 ,,,” 选 项 ， 显 示 “ 引 用 ”对 话 框 。 在 该 对 话 
框 中 的 列 形 框 中 选择 “Fourier 1.0 Type Library” 和 “MWComUtl 1.0 Type Library "。 

插件 需要 一 些 初始 化 代码 和 一 些 全 局 变量 来 控制 应 用 程序 的 状态 。 要 达到 这 个 目的 ， 按 
照 下 面 的 步骤 实 现 一 段 Wisual Basic 代码 模块 。 

《4) 在 工程 窗口 中 右 击 VBAProjee 选项 并 从 弹出 式 菜单 中 接 顺 序 选 择 “ 播 入 ”~“ 模 块 ”% 

05) 在 VBAProject 中 的 Modules 下 面 出 现 一 个 新 的 模块 ,在 该 模块 的 属性 页 中 , 将 Name 
属性 设置 为 FeurierMain， 如 图 13-16 所 示 。 

在 FourierMain 模 其 中 输入 下 面 的 代 瑰 ， 

" FourierMain 模块 一 为 主 模 块 ， 它 提供 全 局 变量 的 声明 并 提供 初始 化 代码 





Public thePFonrier As Fourier Fourier Tourier 对 象 的 全 局 实例 
Public theFFTData As MYWComplex MWComplex 对 象 的 全 局 实例 


Publie InputData As Range 和 共 入 数据 的 范围 
Puhlic Interval As Double 采样 间 殉 
Public Prequency As Range 输出 频率 数据 范围 
Public PowerSpect As Range 验 出 功率 谱 密度 范围 
Pubhlic hbPlot As Boolean 控制 绘图 状态 
Pubtic bImitialized As Boolean 控制 模块 是 否 被 初始 化 
Private Suhb LoadFourierO) 

初始 化 全 局 变量 并 载 入 Spectral Analysis 窗 体 

Dim KMainForm As frrmmFourier 
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转 13si6 站 VBA 工程 中 辆 失 可 霹 


13.4.3 创建 图 形 用 户 界面 


集成 处 理 的 下 一 步 是 用 Wisual Baste 编辑 回 为 插件 开发 一 个 用 户 界面 ， 按照 以 下 步 村 创建 
-外 新 的 用 户 窗 休 ， 并 在 留 体 上 素 加 必要 的 控件 ， 


二 汉 ] 避 二 


111 在 工程 窗口 中 右 击 VBAPrajeet 选项 ， 并 内 强 山 起 莫 单 中 技 需 序 竺 择 “ 揪 太 ” -~- “用 
卢 窗 体 ” 项 ， 

121 规 在 ， 在 VBA 工程 中 ， 一 个 新 的 窗 体 量 示 在 Fomms 下 面 。 在 窗 体 的 属性 页 中 ， 特 
Name 属性 设置 为 fnmFEourief， 特 Caption 属性 设置 为 Spectral Aiialysia， 

137 办 室 白 的 窗 体 中 启 加 控件 ， 如 图 13-17 所 示 ,， 知 拥 才 13.2 中 的 内 容 设置 控件 的 属性 ， 






图 13217 鹿 建 Wasaal gage 窗 体 


表 13.2 属性 设置 
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窗 体 和 控件 创建 完毕 以 后 ， 右 击 窗 体 并 从 弹出 式 菜单 中 选择 “查看 代码 ”选项 。 然 后 在 


代码 窗口 中 输入 下 面 的 代码 。 
fmFourier 事件 和 铝 柄 


Prnmivate Sub UserFEorrm_ 上 ctivdted 
'UserForm 被 激活 时 的 事件 句柄。 杯 栈 数 在 显示 窗 体 以 前 被 调用 ， 
并 用 保存 在 全 局 变量 中 的 值 初始 化 所 有 控制 
Dn Bor GoTo Handie_Error 
开 thePourier B Nothing 人 Or 中 eEFRTData E Nothing Then Exit Sab 
' 用 当前 状态 初始 化 控制 
If Not inputData Nothing Then 
TefedtmputText = pmtData. 上 ddiress 
End 下 
edtSarmplie,Text = Form 丝 (Interva[) 
下 Not Frequency I Nothing Then 
TefedtFreq.Text = Frequeney. 上 Address 
End 开 
芝 Not 人 Empty [thebFTData.Real) Then 
IIsObjectftheFFTData Real And TypeOf theFFTDataReal Is Range Then 
IEExiReal.Text = 由 eERFTData Real.Address 
Pnd 开 
End 下 
下 Not EEmpty (thePRFTData.Hmag) Then 
开 IsDhject(theFFTDPData.Imag) And TypeOf theFFTData.Imag Is Range Then 
refedttmag.Text = 了 heFFTDataImag.Address 
End 下 
End 下 
下 Not PowerSpect IE Nothing Them 
refedtPowSpect, Jext = PowerSpect Addqress 
End 下 
chkPlot.Value = bPlot 
Exit Suh 
Hapdle_Error: 
MsgBox (REITDescriptiony 
End Sub 


Private Suhb btneancel_ ClickO 

单 击 “Cancel” 按 钮 时 的 事件 句柄 。 在 不 计算 也 或 更 新 变量 的 情况 下 退出 窗 体 
Unload Me 

End Suhb 

Private Sub btnDORK_Clickt) 

' 单 击 “OKE ”按钮 时 的 事件 句柄 。 在 控件 中 更 新 所 有 变量 的 值 ， 

' 并 运行 ompute 性 或 plottft 方法 
Dim R As 及 antige 


ItheFourier Is Nothing Cr 了 heFFTData ls Nothing Then GoTo Exit Form 
Dn Ermror ResDne Next 

输入 

Set 及 = Rangelrefedtiaput Texty 


“312， 








开 Er <>UTIhen 
MsgBox [Invalid range entered for Input Data ) 
PExit Sub 
End 开 
Set InputDiata = 民 
TInterval = 总 DblHedtSample.Textby 
If Er <>UOrIntierval <= 0 Then 
MsgBex ("Sampling interval must be greater 也 ar zero ) 
Exit Sub 
End 开 
下 rocess Outpu 舍 
SetR = Rangefrefedthreq Texb 
让 Err = 站 Then 
Set Frequency = 及 
End 下 
Set 及 = RangetrefedtReal,Texb 
下 Err = 帮 Then 
theFFETData.Real = 及 
End 下 
Set RR = Rangefrefedtmag,EFexfj 
IEBrr=0Then 
theFFIData.Imag = 及 
End 于 
Set 及 = RangefrefedtPowSpect Texi 
IEr=0Then 
Set PowerSpect = 及 
End 下 
bpblot = chkPlot Value 
计算 丛 并 有 选择 地 绘制 功率 谱 密 度 图 
IbPlot Then 
Call theFourierplotttt3, theFFTIData Frequency PowerSpect， 
InputData, Interval) 
Else 
Call theFoutiereoinputetft(3 theFFIData Frequency PowerSpect， 
InputData Interval) 
End 开 
GoTo Exit_Formm 
Handle_Error: 
MsgBor (Er Descriptiom) 
Exit_Form: 
Unloed Me 
End Sub 


集成 的 最 后 一 步 是 给 Excel 添加 一 个 菜单 选项 。 这样， 就 可 以 从 Exeel 的 “工具 ”菜单 中 调 
用 该 工具 了 。 进 行 这 一 步 工 作 ， 需 要 为 工作 夭 的 Addintmstall 和 AddinUninstall 事件 添加 事件 名 
柄 。 该 菜单 项 调用 LoadFourier 模块 中 的 LeadFeurisr 函数 。 按 照 下 面 的 步 又 实现 菜单 选项 。 

(1) 在 Visual Basic 工程 窗口 中 右 击 “ThisWorkbook” 选 项 ， 并 从 弹出 式 菜单 中 选择 “ 查 
看 代码 ”选项 ， 结 果 如 图 13-18 所 示 。 

(2) 将 下 面 的 代码 放 到 ThisWeorkbook 对 象 中 。 
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其 中 ，Workbook_Addinlnstall 过 程 调用 AddFourierMenuitem 过 程 , 在 窗 体 中 添加 菜单 项 ， 
它 在 安装 播 件 时 被 调用 ; Workbhook_AddinUninstall 过 程 在 卸载 播 件 时 被 调用 
AddEFounierMenuItem 过 程 在 “Tools” 菜 单 中 添加 一 个 子 菜单 项 ，RemovyeFourierMenuJtem 过 
程 把 Spectral Analysis 菜单 项 从 “Tools” 菜 单 中 删除 。 


13.4.4 ”保存 和 测试 插件 


(1) 将 插件 命名 为 “Spectral Analysis”， 按 照 下 面 的 步 又 保存 它 : 

e 在 了 Excel 主 菜单 中 依次 选择 “文件 ”一 “属性 ?” 

es 当 “Workbook 属性 ”对话 框 出 现时, 选择 “摘要 信息 ”选项 卡 , 并 输入 “Spectral Analysis” 
作为 工作 矫 的 标题 ， 

s 单 击 “OK”， 保 存 编辑 上 内容; 

es 从 Excel 主 莱 单 中 依次 选择 “文件 ”一 “另存 为 .…2” 

在 “另存 为 ”对 话 框 中 选择 “Mierosoft Excel Add-Inf#t.xlay” 作 为 文件 类 型 ; 

e 输入 “Foulierxla” 作 为 文件 名 ， 并 单 击 “ 避 存 ”按钮 ， 保 存 揪 件 。 

在 分 发 插件 以 前 ， 对 它 进行 测试 。 谱 分 析 常 用 于 查找 淹没 于 响声 时 间 段 信号 中 的 频率 组 分 。 
本 例 中 ， 将 创建 一 套 表 示 有 了 两 个 完全 不 同 组 分 的 信号 的 数据 ， 并 给 它 添加 一 个 随机 成 分 ， 本 数 
据 与 输出 一 起 ， 将 被 保存 在 Excel 工作 逢 的 列 中 ， 将 时 间 城 信号 与 功率 谱 密 度 一 起 用 图 形 表示 。 

《2) 按照 以 下 步骤 创建 测试 程序 ， 

e 有 局 动 一 个 新 的 Exeel 进程 ， 它 有 一 个 空白 的 工作 簿 ; 

e 从 主 菜 单 中 依次 选择 “工具 ”一 “加 载 宏 ..…” 打开 “加 载 宏 ” 对 话 框 ; 

es 在 “如 载 守 ” 对 话 框 中 单 击 “ 浏 览 .….” 按 钮 ; 

se 找到 Fourierxla 文件 并 单 击 “ 确 定 ”按钮 ; 

*# 在 列表 框 中 找到 “Spectral Analysis” 捅 件 ， 选 择 它 ; 

。 单 击 “OK ”按钮 ， 装 载 插件 。 

本 插件 在 Excel 的 “工具 ”菜单 下 安装 一 个 菜单 项 。 可 以 通过 依次 选择 "工具 ”一 “Spectral 
Analysis” 来 显示 谱 分 析 的 图 形 用 户 界 面 。 调 用 搬 任 以 前 ， 创 建 一 些 煞 据 ， 本 和 俩 中 ， 信 和 号 的 组 
分 为 153Hz 和 40Rz。 对 信和 号 进行 10 秒 钟 的 采样 ， 每 隔 0.01 秒 采 样 一 次 ,将 时 间 点 放 在 和 列 ， 
信和 号 点 放 在 B 列 。 

(3) 按照 下 面 的 步 枝 创 建 数 据 : 

s 在 当前 工作 玫 中 ， 在 单元 Al 中 输入 0 

e 单 击 单元 A2 并 键入 公式 “=A1+0.01 交 

es 单 击 并 一 直 按 住 单元 Az 的 右 下 角 并 把 会 式 向 下 拖 至 A1001， 本 过 程 用 以 0.01 为 增 量 
0 到 1 之 问 的 数 充填 Al: Al1001 范围 ; 
 e 童 击 单 元 B1， 并 键入 公式 “=SIN(2*PIOF15*A1HSINCzPIO*40*AI)+RANDO”， 重复 
拖拉 过 程 ， 将 该 公式 复制 到 B1:，B1001 范围 内 的 所 有 单元 ， 

(4)》 使 用 数据 的 列 〈B 列 ) 对 播 件 作 如 下 测试 

e 从 主 菜单 中 依次 选择 “工具 ”一 “Specttal Analysis,，.”; 

s 单 击 “Input Data” 窗 口 ; 

。 在 工作 簿 中 选择 B1: Bt001 范围 或 将 本 地 址 键入 到 “input Pata” 窗口 中 ， 

# 在 “Sampline Interval” 窗 口上 单 击 并 键入 0.01; 


“3 全。 


下 选择 “Piot ime dofmalin 乓 ml aidl PPW 人 DECEE En 5 

= 儿 ACEEIOOL 十 于 疗 率 输出 ， 莫 英 似 地 和 愉 六 DIDID0L，ELEEBICOGL 和 Fl:PIONL， 和英 
别 用 手 EFT 的 宇 部 和 虚 孝 以 政 重 密 应 ; 

s 单 击 “ 口 民 ” 接 酝 进行 分 析 ， 

1 二 显示 了 了 筒 试 的 结果 。 
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师 13.19， 测试 的 计时 
功率 请 密 诬 展示 了 15Hz 和 .40Hz 趟 的 两 太 从 号。 


13.4.5 打包 组 件 


将 COM 组 件 和 所 有 的 支持 库 打 包 到 一 个 自 解压 可 热 行 程序 中 。 这 样 , 本 得 就 可 以 安装 到 
其 他 需要 使 用 Spectral Analysis 组 件 的 计算 机 上 了 。 同 样 需要 将 Fourierxlta 女 件 复 剧 到 所 有 在 
Excel 中 使 用 本 姐 件 的 计算 机 中 。 打 包 组 件 按 怕 以 下 步 要 进行 。 

(1 回 到 COM 生成 器 丰 界 而 。 如果 已 经 关闭 ， 重 新 启动 它 并 装载 Faurier 工程 ， 

(23 忧 蕊 选择 Cempenent 一 Package Companett。 
本 羡 信 创建 Fourisrexe 自 解压 可 执行 程序 , 要 把 本 姐 件 安装 到 另 一 台 计 算 机 上 ,将 Fourierexe 
所 复制 韦 间 但 计算 机 上 ， 欠 南 达 行 中 适 行 它 。 


| 











第 14 章 MATLAB 与 硬件 接口 


MATLAB 提供 了 与 其 他 硬 件 之 章 的 接口 函数 及 方法 ， 就 如 同 在 VC 及 YB 中 的 基本 类 库 
一 样 ， 使 得 外 设 和 MATLAB 之 问 可 以 直接 方便 地 进行 般 信 ， 基 本 的 通信 方式 有 并 行 通信 接口 
种 行 通信 接口 两 种 。 本 章 将 对 MATLAB 串 行 通信 接口 进行 详细 的 介绍 。 


14.1 MATLAB 串 行 通 信和 接口 简 介 
本 节 将 简单 介绍 MATLAB 串 行 通信 接口 的 概念 及 所 支持 的 串 行 通信 和 护 口 标准 。 


14.1.1 什么 是 MATLAB 串 行 通信 接口 


使 用 MATLAB 串 行 通信 接口 〈 简 称 串口 )， 可 以 直接 访问 外 设 ， 如 modem 和 与 计算 机 串 
口 相 连 的 科学 仪器 。MATLAB 串口 通过 串口 对 象 来 建立 。 用 串口 对 象 支持 冰 数 和 串口 对 象 属 
性 函数 ， 能 实现 下 面 的 功能 ， 

。 配置 些 口 通信 ; 

es 读 写 数据 

# 用 事件 和 回调 函数 ， 

s 记录 信息 到 磁盘 。 

如 果 想 和 获取 数据 的 硬件 (如 多 功能 IO 板 ) 通 信 , 需要 数据 获取 工具 箱 ; 如 果 想 和 GPIB 
《通用 接口 总 线 ) 或 者 VISA 兼容 器 件 通 信 ， 需 要 器 件 控制 工具 箱 。 当 然 ， 这 些 工 具 箱 也 包括 
其 他 串口 TO 实用 遂 数 ， 使 租 可 以 很 方便 地 产生 和 配置 对 象 以 及 进行 通信 等 。 


14.12 支持 的 串 行 通 信 接 口 标准 及 平台 


现行 的 串 行 通信 标准 包括 有 RS-232, RS-422 和 RS-485, MATLAB 串口 对 象 支持 所 有 这 些 标 
准 。 在 这 些 标准 中 ， 通 常 使 用 RS-232 来 连接 计算 机 和 外 设 、 下 面 的 分 析 将 以 RS-232 为 标准 
进行 。 

MATLAB 串口 所 支持 的 操作 系统 为 Microsoft Windows，Linux 及 Sun Solaris。 


14.2 进一步 了 解 串 行 接口 
本 节 将 对 串 行 接口 进行 详细 的 介绍 ， 包 括 接 口 标准 、 信 和 号 及 答 著 分配、 如 何 用 电缆 连接 
通信 设备 及 查找 系统 串 行 接口 信息 并 正确 配置 的 方法 。 


14.2.1 什么 是 串 行 通 信 


与 外 界 的 信息 交接 称 为 通信 。 基 本 的 通信 方式 有 并 行 明 信和 串 行 通信 两 种 。 
一 条 信息 的 各 位 数据 被 同时 传送 的 通信 方式 称 为 并 行 通信 。 并 行 通信 的 特点 是 ， 各 数据 
位 同时 传送 ， 传 送 速度 快 、 效 率 商 ， 但 有 多 少数 据 位 就 需 多 少 根 数据 钱 ， 因 兹 传送 成 本 高 ， 


“317 。 











所 以 只 适用 于 近 距 离 《 相 距 数 米 ) 的 通信 。 

一 条 信息 的 各 位 数据 被 逐 位 按 顺 序 传 送 的 通信 方式 称 为 串 行 通 信 。 串 行 通信 的 特点 是 ; 
以 串 行 的 方式 〈 一 次 一 信 比 特 ) 发 送 和 接收 字 节 信息 ， 字 节 以 二 进 制 或 文本 的 格式 被 传送 ， 
最 少 只 和希 一 根 传输 线 即 可 完成 ， 成 本 低 但 传送 速度 慢 。 串 行 通信 的 距离 可 以 从 米 到 几 二 米 。 

根据 信息 的 传送 方向 ， 串 行 通信 可 以 进一步 分 为 单 工 、 羊 双 工 和 全 双 工 三 种 。 信 息 只 能 
单 同 传送 为 单 工 ， 信 息 能 双向 传送 但 不 能 间 时 双向 传送 称 为 半 双 工 ， 信 息 能 够 同时 双向 传送 
则 称 为 全 双 工 。 

进行 串 行 通信 的 设备 通常 一 个 是 计算 机 ， 而 另 一 个 是 modem、 另 一 台 计 算 机 或 科学 仪器 ， 
如 示波器 或 函数 发 生 器 等 。 


14.2.2” 串 行 接口 标准 


连接 酚 个 设备 的 串 行 接口 由 美国 电信 工业 协会 颁布 的 TILAAEIA-232C 标准 指定 。 最 初 的 
串 行 接口 标准 为 RS-232， 现 在 仍 广泛 在 使 用 。RS-232 定义 了 几 个 串口 特征 ， 

e。 最 大 比特 传输 率 及 电缆 长 产 ; 

# 信号 和 名、 电气 特性 及 功能 ; 

# 连接 及 管 脚 分 配 ; 

基本 的 通信 和 只 需要 收 、 发 和 地 三 条 管 靶 即 可 以 完成 ， 其 它 管 脚 可 选 作为 数据 流 控 制 ， 不 
是 必需 的 。 


14.2.3 ” 串 行 接口 信号 及 管 著 分 配 


串口 包含 两 类 信号 : 数据 信号 及 控制 信和 号。 为 了 支持 这 些 信号 类 型 及 信号 地 ，RS-232 标 
1 准 定义 了 一 种 25 针 的 管 靶 连接 ,， 但是， 大 客 数 的 PC 机 及 
Doao aa ao UN 平台 用 9 针 连 接 。 实 际 上 ， 完 成 通信 只 需要 上 面 说 





3 9 2 的 三 根 针脚 ， 一 个 收 、 一 个 发 及 一 个 信号 地 。 
图 14.1 9 针 公 头 针脚 分 配 框图 数据 终端 设备 DTE ( 计算 机 ) 的 9 针 公 头 针脚 分 配 框图 
如 图 14-1 所 示 。 


接口 引线 及 功能 如 表 14-1 所 示 。 
衷 14-1 接 只 引线 及 功能 


引 _ 脚 号 名 称 【〈 缩 写 名 》 功能 说 明 
















1 载波 检测 《CD) 当 DCE 从 数据 钱 .上 收 到 信号 有 时， 发 出 此 信号 

z 
发 送 数 据 (TXD》 从 DTE 到 DCE 的 教 据 线 
| pm DER DER 









用 于 接口 的 还 辑 地 
由 DCE 发 出 ， 表 示 数 据 蕊 被 接收 
由 DTE 发 出 ，DCE 根据 情况 决定 响应 和 否 
由 PCE 发 出 ， 控 制 发 送 端 发 送 数据 
由 DCE 发 出 ， 表 示 正 进行 通信 












一 一 aasos 一 一 
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了 请 求 发 送 《RTS) 
天 富 一 
| 9 上 | 所 答 指 孙 
14.2.4 用 串 行 电 用 连 接 通 信 设 备 


RS-232 标准 定义 了 用 电缆 连接 两 个 设备 ， 即 数据 终端 设备 DTE〈 如 计算 机 ) 及 数据 通信 
”318。 














设备 DCE【 如 modemy。， 因 坟 数 据 通 信 设 备 (DCE) 为 卫 脚 发 ，3 须 收 ， 所 以 直接 电 缠 连接 
CTE 和 DCE 的 连接 图 如 图 弃 所 示 ? 

奶 和 更 用 电 竟 连 接 两 个 DTE 或 者 DCE， 需 要 竞 忆 连接 线 。 用 和 电 时 连接 两 个 TTE 如 团 14233 
质 和 未。 此 让 变 有 列 是 困 约 IE 帽 是 工大 睐 ， 计 腌 时 。 


计算 机 讨 奈 栅 
Te 监 


机 富有 
让 慎 
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图 1i 直 3 连 摘 TIE 和 DeEE 图 1434 库 帮 DTE 和 ITE 


14.2.5 查找 所 使 用 平台 的 串 行 接口 信息 


下 面 糙 刘 电 查 搁 Windows 和 UNIX 系统 中 申 口 信息 的 方法 。 系 统 为 所 肿 口 设置 了 上 默 认 
值 ， 但 是 通过 MATLAB 的 代 到 重地， 焉 认 值 对 于 让 口 庶 用 程序 将 无 效 ， 必 须 单 独 加 县 设置 ， 


1 Windaws 平台 

可 以 根 容 易 地 通过 Windsws 僻 缸 面板 来 获得 串 口 信 息 ， 技 申 下 面 的 步 曼 打 开 控 制 面板 ， 
开 巡 一 设置 一 控制 面板 。 

对 于 Windows NT， 选择 串口 图 标 并 打开 来 获得 惠 口 清单， 对 话 框 如 图 14-4 所 责 ， 

为 本 非得 COWML 的 庆 导 信息 ， 遍 帮 列表 框 中 的 “CDMUI ”网 项 ， 井 昌 单 而 “Settings 
技 钮 ， 打 开 “Settimgg forCOMI” 对 话 惜 ， 划 图 14-5 所 未 。 





图 上- 和 YIPora” 对 话 杠 陪 1 本 SR 本 PEGOL ”对 请 村 


到 ，UNI 平 音 
最 发 现 UN 区 平台 的 由 问 俏 息 ， 需 要 筷 道 串 日 省 ， 这些 才 学 可 能 因为 操作 章 统 在 同 而 习 同 。 
ri 在 Linux 票 统 中 ， 为 tyS0, tyS1。 可 以 通过 setserial 命 他 来 显 示 或 者 配置 中 口 悄 息 ， 
情 师 ， 显 示 哪 些 暗 口 可 用 ， 
到 前] = 直 且 夺 本 WE 和 二 
台 回 为 
天 可 帮 本 才 村 下 [US 三 二 有 语 届 下 和 33 和 和 
间 可 和 WYS1 央 0 这 本 1irdg = 下 所 是 下 和 35 和 
显示 时 细 的 谤 蔓 情 息 ， 
下 下 | - 昌 右 je 
是 回 为 ; 


= 3 引 印 = 


间 ewWtySO Linse 可 加 入 谋 本 下 5 站 三 合 [全 引 
后 遇 U 入 谓 六 人 [让 lg 二， 村 瑟 二 办 :号 人 iiSCNME 村 
剖 上 二 河 放 _ 吾 副 天， EL 度 Wi 条 记 
站 mW 旦 Pd_TGTTTII| 瑟 攻 1_HE 和 | 王 PSHCETL_ | 和 人 主 
如 亲 aetaeriil -apg 南村 再 起 作 用 ， 请 确认 是 天 有 市 口 让 可 轰 随 ， 
[27 对 于 所 有 克 持 的 了 NI 平台， 可 以 使 用 sy 北 似 来 显 示 或 者 配置 串口 信息 。 
岗 丫 ， 量 示 南 口 咯 细 信息 如 下 ， 
副 生 < 过 疾 EWAHEY 站 
配置 起 特 密 为 各 和 中 忆 
出世 PE 过 村 B 几 去 辣 E 富有 由 > AS 


14.3 用 串 行 接口 进行 通信 


为 了 古 恒 调试 ， 在 下 面 的 例子 审 ， 我 们 假定 外 址 是 腊 “ 音 计 自 本， 我 们 便 可 出 相间 计 
竺 机 上 调试 通信 行为 。 性 用 标准 接口 线 ， 将 其 中 一 中 的 2 3 脚 交 换 ， 特 其 连接 于 计算 机 的 两 
个 帅 口 ， 一 蝴 鉴 ， 另 一端 收 ， 我 们 利用 程序 “串口 训 试 助手 ” 必 为 播 收 显 示 程 岸 【 当 然 也 可 
以 利用 Windews 的 超 组 终端 )， 对 于 其 他 的 外 设 ， 通 悄 是 疯 亿 的 ， 


131 一 个 简单 的 例子 


旭 音 我们 代 定 肌 口 改 CEOMI，COMG3 为 外 役 的 收 需 ， 情 输 麻 注 4800bs， 玫 下 面 的 得 岸 可 

以 完成 通 情 。 

上 届 古人 针 

有 加 5 过 可 到 忆 , 间 国 赔 玫 

TGFenilal 

ED 

全 下 三 1 让 全 三 帮 

本 [nseft) 

证 二 [3 

到 | 


用 “南口 调试 助 平 ” 通过 EDOME 接 丰 圭 果 妇 图 i 间 页 吕 5 
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围 14.6 亿 过 CO 二 收 的 精 昌 


14.3.2 ”通信 步 节 及 相关 函数 介绍 


从 上 面 的 例子 我 们 可 以 简单 地 看 出 ，- -个 完整 的 串口 通信 基本 步骤 如 下 ; 

se 产生 一 个 串口 对 象 ， 用 串口 产生 函数 为 串口 产生 一 个 串口 对 象 。 

在 串口 对 象 产 生 期 间 也 可 以 配置 其 属性 ， 如 波 特 率 、 数 据 比特 位 数 等 。 

se 连接 外 部 设备 ， 用 fopen 天 数 和 连接 如 口 对 象 和 外 部 设备 。 

串口 对 象 连接 后 ， 也 可 以 通过 设置 属性 、 读 数据 及 写 煞 据 来 改变 设备 属性 ， 

s。 配置 串口 属性 ， 通 过 为 串口 属性 分 配 值 来 得 到 串口 对 象 局 伯 值 。 

可 以 用 设置 冰 数 来 为 属性 赋值 。 实 际 上 ， 我 们 能 在 串口 对 象 产生 期 间或 者 产生 后 的 任何 
时 间 配 置 属性 值 。 如 果 接 悚 默认 值 ， 则 可 以 本 过 这 ' 一 步 。 

s 读 写 数据 ， 用 读 写 函数 我 们 能 读 写 数据 到 设备 中 。 

根据 配置 的 属性 值 ， 用 fprintf 或 fwrite 来 写 数据 到 外 设 ， 用 他 etl、fgets、fread、fscanf 
或 feadasync 函数 来 从 外 设 读 取 数 据 。 

s 断 开 连接 和 清除 : 当 我 们 不 再 需要 串 口 对 象 时 ， 应 该 断 开 其 和 设备 的 关连 ， 从 内 存 移 
除 ， 并 从 MATLASB 工作 区 中 清除 掉 ， 

下 面 就 以 上 几 个 步骤 分 别 加 以 详细 介绍 : 


1， 产生 一 个 串 品 对象 

用 serial 函数 为 串口 产生 一 个 串口 对 象 。 该 函数 的 调用 格式 为 ， 

es obj = setial(port) 产生 一 个 与 指定 串口 相关 连 的 串口 对 银 ， 如 果 串 口 不 存在 ， 或 正在 
使 用 ， 关 连 将 失败 ， 

es obj = serial(port,PropertyNaime ,Property Value ) 产生 一 个 限定 属性 各 和 属性 值 的 此 
口 对 象 ， 如 果 限 定 了 无 获 的 属性 名 和 属性 值 ， 串 口 对 象 将 不 能 产生 ， 返 回 错误 。 

其 中 : 参数 port 为 串口 名 ; 'PropertyName' 为 串口 属性 名 : PropertyValueA 为 PropertyName 
所 支持 的 属性 值 ，obj 为 串口 对 象 。 

当 产 生 一 个 串口 对 银 时 ， 自 动 配 置 下 面 的 属性 值 : 

G Type 属性 。 

包 Name 属性 ， 即 串口 通信 国 数 中 的 名 字 ， 

地 Por 属性 ， 即 串口 名 字 。 

【 例 14-1】 用 下 面 的 例子 产生 串口 对 银 s1， 并 用 与 串口 COM1 相关 连 。 


sl1 = seralCOMI) 5 阁 类 型 ， 名 字 和 串口 属性 被 自动 配置 
gettsEL{TYype' Name' Port]) 











函数 返回 ， 
ansgs 一 
'Sefial eniaLCOMI COMY 
8 = serial(COM2' BaudRate',1200, DataBits,7)，， 上 产生 对 象 时 限定 属性 
2， 连 接 外 部 设备 
连接 串口 对 银 和 外 部 设备 


在 用 串口 对 象 读 写 数据 前 ， 必 须 先 通 过 英 数 fopen 将 串口 对 银 和 设备 相连 .连接 以 后 ，-- 
些 属性 值 是 只 读 的 ， 如 ImputBufferSize 及 OutputBuffersize 等 ， 所 以 必须 在 使 用 fopen 函数 前 
设置 好 。 我 们 可 以 用 下 面 的 语句 来 测试 或 验证 连接 状态 。 
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S.StatDs 
ang 一 
mpen 


一 且 事 口 对 银 和 设备 连接 成 功 ， 我 们 就 可 以 读 写 数据 ， 如 图 14-7 所 示 。 











MATLAB 串口 LO 苔 件 设备 


人 petts) 


(人 oocoe 


图 14-7 MATLAB 与 设备 之 间 读 写 数 据 


fopen 函数 的 调用 格式 为 
fobentobjih) 
其 中 oj 为 惠 口 对 象 或 串口 对 象 向 量 。 
【 例 14-2】 本 例 产 生 串 口 对 银 s， 用 如 open 连接 s 和 设备 ， 读 写 文本 数据 ， 然 后 断 开 s 和 
设备 的 连接 。 
程序 如 下 ， 
8= SerialfCOR1 7: 
fopenks) 
S.Statls 
fprintfs, ITDI7 
tn = 从 canffsy， 
丰 losefS) 
函数 返回 状态 为 : 
05 = 
oben 
对 象 连 接 后 ， 我 们 能 通过 配置 属性 值 、 读 数据 和 写 数据 来 改变 设备 的 一 些 设置 。 


3.， 起 置 串口 属性 
通过 为 串口 属性 分 配 值 来 建立 希望 的 囊 口 对 象 属性 值 。 使 用 set 函数 配置 串口 属性 ， 该 函 
数 的 调用 格式 为 : 
es set(obj):， 函数 显示 obj 的 所 有 可 配置 许 人 性 值 。 
e props = settobj): 返 加 obj 的 所 有 可 配置 属性 值 到 props 结构 中 。 
es SeLKobj, PropertyName)， 显示 PropertyName 的 有 效 值 。 
props = settobj,PropertyName'): 返回 PropertyName 的 有 效 值 到 props 结构 。 
e set(obj,PropertyName',PropertyValue,,.)， 配置 多 个 扁 任 值 。 
一 且 串 口 对 象 建立 ， 就 可 以 用 set 函数 显示 所 有 的 可 配置 属性 值 。 
= SeraiCOMi : 
St SS 
显示 如 下 ， 
Bytewrder [ flittleEndian ] | bigEndian ] 
BytesAvailableFcn: string -ot- fnction handle -or- cell array 
BytesAvailableFcnoCount 
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BytesAvailableFcnMode: [ fterminatorj |byte ] 
EreorFcn: String -Of- fnction handie -QT- cell array 
JputBufierSize 

Name 

ObjectwVisibitity: [ {fon} 1eff] 

OutputBufferSize 

OutputEmptyFcn: string -or fonction handle -or- cell array 
RecordDetail: [ fcompact] | verpose ] 
RecordMode: [ {overwritej | append | index ] 
RecordName 

Tag 

Timecnit 

TimerFen; strimg -or 和 mction handle -or- cell armray 
TimerPenod 

UsSeTrData 


SERIAL specife properties: 
BaudRate 
HBreakIntenmptFcn: smring -or function handle -Or- cell array 
DataBits 
DataTerminalReady:fT {fon} 1o 在 ] 
FlowControl [ fnonej hardware [software ] 
Panity: ff{nonej iodd leven1mark | space ] 
PinStatblsRen: string -or fnction handle -Or- ce amrgy 
Port 
ReadAasyncekMode: [ {continuous} | mannmal ] 
RequesfIosend: [ fonl loff] 
StopBits 
Terminator 
【人 鲍 14-3] 下 面 的 例子 显示 了 一 些 配置 串口 对 象 s 属性 的 方式 。 
= serial0COM1'); 
set(s .BandRate .9600.Parity even)]:， 吕 设 置 波 特 窜 ， 奇 偶 校 验 。 
2etfsf StopBits, RecordName'],{2, Sydney 门 ， 皮 设置 停止 位 。 
setfsvPanity) 
[faone 1odg jeyven 1 mark1space] 
实际 上 ， 我 们 能 在 对 象 产 生 时 或 产生 后 的 任何 时 候 配 置 其 中 一 些 属 性 。 我 们 也 可 以 根据 
需要 来 用 缺 省 值 而 跳 过 此 步骤 。 


4.， 读 写 数据 

用 下 面 的 读 号 函数 能 将 数据 写 入 到 设备 中 或 从 设备 读 取 数据 ， 

(1) fprintf 秀 数 : 写 文本 数据 到 设备 。 

s fprintffobj,cmd):， 写字 符 串 cmd 到 与 obj 相连 的 设备 中 。 缺 省 的 烙 式 为 %sm， 号 操作 
是 同步 的 ， 即 阻塞 命令 行 直到 执行 完成 。 

e fprintgobjfomat,cmd); 将 由 fonmmat 格式 限定 的 字符 捉 cmd 写 到 与 obj 相连 的 设备 中 。 
Fommat 是 C 语言 的 转 义 字符 。 

? fprintflobj,cmd, mode)， 写 字符 ，'mode' 限 定 命令 行 模式 。 如 果 mode 是 sync，ceimnd 被 
同步 写 ， 命 令 行 锌 阻塞 :如果 mode 是 async，cemd 被 异步 写 ， 命 令 行 不 被 阻塞 ，meode 缺 省 为 
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同步 。 
efprintfabisformat'emd maodeh 写 由 formal 格 式 限定 的 字符 囊 , 旭 果 mode 是 叶 m， cmd 
被 同步 写 ， 如 果 mode 是 由 yne，emd 被 异步 写 ， 
(2) canf 画 灼 :以 文本 格 武 从 设备 读数 据 . 
s A 二 fcanfrobij 从 与 obj 相 关 撒 的 设备 读数 据 ， 妈 回 到 As 数据 被 转换 为 有 9 格式 
的 玄 李 ， 
直下 三 人 scantEobjvformaty 该 数据， 并 根据 format 转换 ， 
而 贞 = 人 Gin 了 GEj iormar .size 读数 据 ， 志 小 二 司 下限 昌 。 
画 【 矶 JEGUnr|= 高 can 和 .ii 返回 读 的 数量 到 ou 中。 
间 [号 .countmiag] = 在 can 攻 .hi 如 果 读 换 作 没有 完全 成 功 ， 返 固 警 告 信息 到 msg。 
【 例 14.4]】 产生 串口 对 象 5 连接 到 外 部 设备 ， 用 ffintf 函数 写 有 格式 的 字符 串 ， fpaintf 
ET 
程序 为 
三 ET 上 
人 faeailal 
TITESTETIT 
IE 


人 各 和 作 用 的 条 本 星球 了 正本 , 本 5 





图 1 仙 汪 入 到 的 孝 


返回 值 为 
筒 册 王 
人 古 站 这- 让 FT 村 筷 | Vi 
[37 fwrite 函数 : 写 二 进 制 数据 到 设备 ， 
es fwrritefobj,A)， 写 三 址 制 数 据 A 到 与 ohi 相关 连 的 设备 中 。 
favritefobj,AJprecision)， 写 二 进 制 数据 A，precison 随 定 了 精度 ， 精 诬 控 制 粮 写 值 的 比 
特 数 及 其 业 型 ， 如 Integer。icating-point 或 charaeter。 烛 | 果 preciaion 没有 限定 ， 则 为 uchar。 
下 fwrilelohj.Amode) 写 二 进 制 据 ， 同 和 rintdf 一 样 ，mode 限定 了 同步 或 异步 的 方式 ， 
间 fewriitefobj,A ,Precisionymeode)t 写 带 有 精度 和 mode 限定 的 二 进 制 数据 ， 


画 也 了 中 





(4) fread 困 数 ， 以 二 进 制 格式 从 设备 读数 据 。 
@ 内 = 们 ead(obj,size) 
e 入 = 阅 eadfobj,size,pPrecision ) 
名 [Acount] = 立 eadf..) 
e [Acountrpsg] = 寿 ead() 
函数 各 项 意义 同 fscanf。 
另外 还 有 读 一 行文 本 的 函数 feetl 和 各 ets， 两 者 的 区 别 在 于 芭 etl 不 处 理 结束 符 ， 而 fgets 
要 处 理 结束 符 。 也 可 以 用 readasype 函数 异步 读数 。 格 式 为 : 
Teadasyncfobj) 
Teadasyncfobj,size) 
f 例 14-5】 产生 训 口 对 象 *, 连接 到 外 部 设备 , 用 fread 函数 读 外 设 发 送 的 二 进 制 数据 ;, ABC。 
程序 为 : 
= SETialgCOM1 
fopent(s) 
out = freadfs,3uint8 ) 


函数 返回 如 下 : 


即 为 ABC 的 ASCI 码 。 
5. 断 开 连 接 和 清除 
当 我 们 不 再 需要 串口 对 象 时 ， 应 该 断 开 其 和 设备 的 关连 ， 从 内 存 移 除 ， 并 从 MATLAB 工 


作 区 中 清除 掉 ， 可 使 用 下 面 3 个 函数 。 

(1 ) felose 函数 断 开 串 口 对 象 与 设备 的 关连 。 其 调用 格式 为 ， 
felogse (Serial) 

obj 为 一 串口 对 象 或 串口 对 象 向 量 。 此 时 串口 对 象 仍然 存在 。 

(2) delete 函数 从 内 存 中 称 除 串口 对 象 。 调 用 格式 为 ， 
delete (setiajl) 

obj 为 一 串口 对 象 或 串口 对 象 向 量 。 

《3) clear 函数 从 MATILAB 工作 区 中 清除 串口 对 象 。 调 用 格式 为 : 


clear (serial) 


14.4 ”应 用 实例 


通过 上 面 的 介绍 ,我 们 对 相关 步骤 和 函数 有 了 详尽 的 了 解 ， 下 面 将 通过 用 MATLAB 串口 
IO 函数 编写 收 和 发 的 工程 实例 ， 来 全 面 深入 地 了 解 其 用 法 


14.4.1 实例 1 一 一 与 示波器 通信 
【 例 14.6】 本 例 将 示范 怎样 和 串口 仪器 通信 , 并 读 写 文本 数据 。 仪器 为 双 通 道 的 Tktronix 
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TDS 210 示波器 ， 和 COM1 连接 ， 一 正弦 信 号 输入 到 通道 2， 现 在 我 们 的 目的 是 度量 输入 信 


号 的 峰 峰 值 。 
(1) 产生 串口 对 象 
s= SelialCCOM1L 
Se6 记 Port Dbject : Seri-COMI 
Communication Settinegs 


Port: COMI1 
BandRate: 9600 
Termninator': 工 王 
Cotmrmunication State 
Status: ctosed 
RecordStatns: Q 信 
有 ReadgrWzrite State 
TransfeTrStatus: 刘 ]e 


BytesAvailable: 修 
ValuesReceived: 0 
了 有 DesSent D 


{2) 巡 接 到 示波器 
fopeitxs) 
(3) 写 读 玖 据 
用 fprintf 写 *IDIN? 命 令 到 示波器 ， 然 后 用 fscanf 命令 读 回 结果 。 
和 pminttts.*IDMN7) 
idn = 存 cdmf(S) 
idn = 
TEKTRONIE TDS 210.0CEF:91.JCT FEV'v1.16TDS2CMICMV:vt.Od4 
现在 测试 测量 通道 是 哪 一 个 ， 可 能 是 通道 ! 或 者 通道 2; 
fprintfls ,MEASUREMENT'IMMED:SOURCE3? 
SOUICe = 全 Cangs) 
soOUTCE = 
CHI1 
返回 值 表示 示波器 配置 为 从 通道 1 返回 测量 数据 ， 而 输入 信和 号 连接 到 通道 2, 所 以 必须 本 
置 示 波 器 从 通道 3 返回 数据 
纯 rnti(s.MEASUREMENT:IMMED:SOURCE CH27 
fprintfs MEASUREMENT:IMMED':SOURCE3 
SOUTCE = 起 Cam 人 fs) 


SOUICE 三 
LU2 


现在 配置 示波器 返回 峰 峰 值 ， 然 后 请 求 测量 值 ; 
fprintfs, MEASUREMENT:MEAS1:TYPE PK2P 民 " 
fprinttts,MEASUREBMENT:MEAS1VALUE?) 
Ptop = 襄 canfls, 248) 
ptop = 
2.0199999809E0 
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{4) 断 开 和 连接 和 清除 


所 1]0se(S)》 
deletets) 
Rearg 


14.4.2 ”实例 2 一 一 拆 分 输入 数据 


【 鲍 14-7】 本 例 说 明 怎样 用 strread 函数 来 拆 分 和 格式 化 从 设备 读 取 的 数据 。 仪 器 为 双 通 
道 的 Tektronix TDS 210 示波器 ， 和 COMI1 连接 。 
(1 ) 产生 事 吕 对 象 
8&= SerialCCOMI 
SeTi 昌 Pofr Object : SeTibl-COM1 
Corrmnunication Settings 


Pert: COMI 
BaadRarte: 9600 
Terminator: 工 F 
Commuhication State 
Status; losed 
有 RecordStatus: of 仁 
ReadA7wWnte State 
TransferStatus; jle 
BytesAvailable: 0 
ValuesReceived， 有 0 
YaluesSent: 0 
(2) 连接 到 示波器 
fopenls) 
{3 ) 写 读 数据 


用 fprintf 写 RS232? 命 令 到 示波器 , 然后 用 fscanf 命令 读 回 结果 。 RS232? 请 求 返 回 RS-232 
设置 ， 所 括 波 特 率 、 软 件 流 控 制 、 夺 件 流 控制 、 校 验 类 型 及 结束 符 。 
fprintfs, 及 S232?)》 
data = fscanfrs) 
data = 
9600:0.0:NONE:LPF 
用 strread 函数 来 拆 分 并 格式 化 数据 变量 为 5 个 部 分 。 
[hr,sfe.hfc,par'tm] = SbTeadfdata， 56 昌 弛 和 和 抬 昌 冯 SS delirriter ,3 
br = 
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(4) 断 开 连接 和 清除 
fcleosefs) 


了 ieletels) 
elearg 


14.4.3 实例 3 一 一 计算 机 与 计算 机 通信 


【 例 14-8 了 本 例假 定 外 说 为 另外 一 个 计算 机 ， 通 过 两 个 串口 来 模拟 与 外 设 的 通信 行 汶 ， 
为 了 更 好 的 理解 串口 TD， 发 送 程序 来 用 MATLAB 编写 ， 用 来 模拟 向 外 设 发 送 数 据 文件 ; 接 
收 程序 用 “串口 调试 盈 手 ”用 来 MATLAB 发 来 的 数据 , 将 其 保存 为 数据 文件 , 并 用 MATLAB 
将 数据 文件 作 图 〈 人 假定 数据 文件 为 一 简单 正 苞 函数 图 形 文件 )。 
(1) 先 产 生 正 纺 函 数 数据 文件 ， 保 存 为 sin.bin。 
程序 如 下 ; 
X= 科 :0.01:2*pi]; 
7=sin0o; 
1d=fopenf fsin.bin ww) %% 在 了 盘 上 产生 区 件 sinbin 
coUnt=fwzite(fdx, 和 oat327 站 写 变 量 x 到 文件 
cotnt=fwriterfid,yfioat329; 阁 写 人 值 到 文件 


felosetfid); 闻 关 闭 文件 
《2) 编写 发 送 数据 函数 ， 将 数据 文件 发 给 外 部 设备 。 
程序 如 下 : 

2read data 站 om fle 

d=fopenCg:Asinbin'r); 欠 打 开 数据 文 件 


[xcountx]=freadffid,629oat320)， %% 读 数据 到 莹 中 
[ceommty]=fread(fid,629.gloat327; %% 读 数据 到 y 中 
felose(fid); 站 关闭 文件 

%% 串 如 TO 

sS= SeriallCOM1 TY 

Setfs BaadRate,96007， 量 串 口 证 署 
settsvOutputBufferSize,4000) 

fopen(sj 

fwiite(sX, float32async) % 开 始 发 送 数据 工 
fwritels,y iloat2 async7 儿 开 始 发 送 数据 y 
felosels) 

deletefs) 


clear s 
接收 如 图 14-9 所 示 ， 
《3) 将 接收 的 数据 保存 为 文件 ， 用 MATLAB 编程 读 取 数据 作 图 如 图 14-10 所 示 。 
将 上 面 的 程序 加 上 握手 协议 ， 就 可 以 加 以 修改 在 实际 通 倩 中 和 运用。 当然 ， 接 收 程序 也 可 
以 用 MATLAB 编写 。 
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图 14-1 生怕 栗 表 


14.5 串口 VD 相关 函数 表 


为 了 恒 于 人 参考， 将 串口 通信 吃 企 此 邓 中 常用 的 TO 函数 县 其 翅 衣 列 于 表 1 
惠 14-2 党 用 趾 口 DO 函数 妻 


上 下 汪汪 天 











ia | 从 入 务 读数 时 ， 直 情结 市 到 


eolaal | 将 市 口 计 彰 和 痊 备 扫 连 






二 导 和 时 二 
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续 胡 










癌 设备 呈 广 本 妇 扣 
从 设备 资 取 一 进 制 吉 提 


Fwrite (Setialy》 












具 设 备 访 取 数 据 ， 杭 式 为 文本 
阿 设 备 写 二 进 制 数据 
返 叫 中 口 对 象 的 属性 
当 事 忻 发 生 时 ， 显 未 事件 信息 
串 11 对 象 到 工作 区 
羯 断 申 口 半 象 是 否 有 将 

唐 口 对 象 向 蜡 的 长 度 
对 铺 此 昌 到 工作 医 
异步 从 设备 读数 据 
记录 数据 和 事件 信息 到 文件 
避 存 串口 对 象 和 变量 到 MAT 文 什 
sen 纪 产生 中 口 更 
sedialhieak 力 设 备 慨 送 中 断 指 水 
Set fserial) 设置 或 亚 沙 串口 对 象 属性 
Sjze (seTial 串口 对 急 敌 阵 的 反 寸 





























Bet fseriai) 
iastrcailback 
istufingd 
说 w 训 订 

























































1enzth (Seria 
load (setiai) 
































Save fsentty 




























stopasyne 入 止 红 步 的 读 写 操作 


第 15 章 界面 设计 技巧 


界面 己 计 是 MATLAB 的 主要 难 愿 之 一 ， 木 章 主要 介绍 些 这 志 面 的 实用 技巧 ,包括 使 用 
四 部 撞 件 ， 撞 件 变 下 操作 和 特 MATLAB 图 形 显 示 到 VB 蜡 而 鱼 ， 相 情 素 音 的 学 习 会 懈 抬 你 = 
些 美 录 的 达 。 


15.1 使 用 外 部 控件 


未 书 第 右 章 和 第 凡 章 都 已 经 办 细 过 在 MATLAB 中 恒 用 外 部 ActiveX 控件 的 问题 ， 井 具 第 
必 章 斤 出 了 一 个 在 VB 中 创建 ActiveX 控件 ， 般 后 在 MATLAH 中 使用 鳃 蛋 件 的 完 王 志 例 ,使 
用 外 朗 ActiveX 撞 伴 ， 可 以 无 限 扩 展 MATLAB 界面 编程 的 司 人 惰性 。 

第 厂 章 和 稍 呈 章 讨论 的 是 如 何 用 aetacontmal 两 灼 创 建 ActiveX 控件 。 钼 裤 网 磺 TLA 有 耻 
在 GUIDE 中 提供 了 一 个 AcEveg 近 件 搜 钳 ， 可 以 利 隆 镭 技 酝 在 设计 区 公证 和 个 全 Activeg 掉 
件 

下 面 的 实例 性 用 GUIDE 中 的 ActiveX 控件 扶 钮 创建 微软 的 MSFlsxGrid 控件 着 利用 乱 
未 数据 。 

注意 ， 使 用 MSFilexsGrid 控件 ， 需 重 首先 安生 Wigual Basic 6。 

首先 打开 GUIDE, 创建 一 店 空 自 的 界面 ,保存 为 FexsGid, 在 左 傅 的 工具 箱 申 单 击 AUive% 
技 宁 以 后 ， 在 设计 区 进行 的 接 ， 此 时 会 弹出 “Seleet ai 记 EHwe 闪 Contral” 对 话 框 ， 如 图 司 " 
所 未 。 





转 站 台 1 天启 Eee 及 Ri Cntal” 对 刁 本 
对 话 查 中 的 AstiveX Controt List” 刻 表 框 中 列 出 了 当前 在 计算 机 上 注册 的 所 有 ActiveXx 
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掉 件 ,在 其 中 选择 *Mierosoft FlexGrid Controhvetsioa 60” 选 列 ， 右 便 显示 该 控件 的 外 观 和 十 览 ， 
和 单 击 '“Creniey 技 握 ， 便 建 该 控件 ， 此 时 兰 在 役 计 区 接 申 抱 前 拖拉 操作 时 绘制 的 矩形 的 大 小 星 
示 控 件 ， 但 扼 件 外 观 不 显示 出 来 ， 只 吕 示 有 控件 名 称 的 宅 白 区 域 ， 蛤 制 了 让 形 的 对 角 并 。 
屿 盾 在 设计 区 括 而 二 查 文本 lblSize， 其 Strinkg 局 性 值 汶 “ 谭 方 筷 阵 的 大 小 ”三 加 可 塌 辑 
充 束 框 trtSize， 其 Suing 属性 值 为 4 语 加 合 李 技 伺 cmdShow， 捧 Saniag 属性 值 为 “显示 境 


而 和 握 阵 ”“ 宽 


匹 


威 谢 计 以 司 的 程序 界 而 如 图 13 所 币 。 






人 1 mr 
避 晤 于 林 本 | 
Le 


2 一 


图 斌 二 计 蜡 面 


烧 后 修改 M 误 件 ， 评 加 各 控件 的 回 苦 代码 ， 和 如 下 所 责 ， 
本 EGRITEEERE = PAGERTE] 


主 汪 人 


晤 .区 X 硬 民 [D 和- 训 抽 村 下 和 天 加 直击 , 丰 四 

由 亲本 skin 天 

咒 天 站 因 |EEime。 

晤 和 = 硬 . 抽 基 癌 要 [ 丫 短语 mA 二 放生 二 站 二 下 放生 人 全 上 下 二 全 1 
喇 请 大 记过 1 站 直属 司 走 国 |BOi 昌 ， 

允 

蜡 和民 JP W| 本 丰收 中 有 太 有 EW 和 LEE 全民 计 计时 直上 出 才 

量 导 eni OPeFty Value ide UnecaBied 记 Fopaertpag FE Rd Wi 

且 站 面 古 申 而 语 同 晤 右 间 dd_ 癌 基 前 天 民 FE 下 二 二 语 页 辣 PMA 廊 TaglieES 是 

皮 训 EE 辣 轨 友 的 着 轩 ee 总 天 人 忆 和 启 半 本 席 恒 轴 区 | 让 放生. 

三 

呈 下 [所 息 于 储 [让 世 碟 二 工 柚 点 丰 民 和 村 PLXG 耻 [DY 们 和 寺 L 轨 电 它 隐 HCject al 二 声 
台 证 FE En 起 直上 日 入 它 攻 二 同 下 双轨 隔世 和 h 击 语 夯 We 训 和 时 
遇 得 互 市 iE 侣 二。 

特 

红 本 训 和 本 匠 相生 生硬 三 且 和 让 广 本 本 上 有 放 三 和 0 关 “ 全 有 台电 而 | 下 [ 
踊 iistance to mi imEebnoni 

庆 


中 SI 蕊 癌 可 生生 T 和 ,三 UIHANDLES5 











妈 Edit 了 he above text 以 Imodify the Tespotse to help FlexGrid 

旺 Last Modified by GUIDE v2.5 25- 和 Apr-2005 160:30:.20 

中 Begin initialization code - DO NOT EDIT 

gu_Singleton = 1; 

guUi_State = struct( gui Name， Imfilenarne，..， 
ESingleton ， gj_Singleton, … 
ui_OpeningFen', 全 FiexGrid_DOpeningFen, … 
gu_Outputhen， 四 FIexGrid_OnthutFcn 
ED0_Layceuthcn， [ 
ui_Callbhaek， [); 

于 Pargin 灾 此 isScharfvararginf 3i > 

EDiL_State,gUL_ Callback = Str2 和 uncfvararginl 1 


end 
让 margout 
[varargomt[ lnargout]}] = gui_imainfengui_State, varargin{f;]); 
elsSe 
Bit_mainfentgui_State varargin[ :和 
end 


% End initialization eode -DO NOT EDIT 


上 -一 Executes inst before FlexGrid is made visible.， 

fanction HiexGrid_OpeningFcnfhDhbject eventdata. handjes, varargirm) 

1 了 his fanction has ho output args. see OutputFcn. 

只 hoObjiect handle to 闻 gure 

思 eyentdata Teserved - to be defined in a fre version of MATL AR 
赂 haoqles structuTe with handles and uset data (see GUIDATA) 

如 varargin 。 unrecognized PropertyNaimerPropeityVahae pairs from the 
儿 command line (See YAARARGIN) 


半 


handqles.mat_size=4;， 
handiles.matrix=magic(4)， 


% hoose 二 fault comrmand line outhut for FlexGrid 
hanadles,output = hoObjectk 


冯 Update handles stmucbre 
guidatahObject handles), 


好 UIWAIT Imakes FlexGrid wait foruser Tesponse (see UIRESUMEB) 
归 Uiwaitfhartiles. 有 Eure1y， 


2 --- Dutputs from this function ape retutrned to 由 ec comrmand line， 
function yarargcut = FlexGrid_OutputFcnthObject, eventdata, handies) 
改 yarargout cell array for returning output args {see VARARGOUT， 
吧 hObject 。 handle to figure 

兴 eyentdata Teselved - to be defined in a future version of MATLAH 


”333。 











5 angles stracbare with handlies and user data (see GUIDATA) 


2 Cetdefault command line output 父 om handles stmcture 
VarafEeoutf 三 handles,output 


燥 -了 xecmtes on button Press ih biShow， 
fnction btmShow_CaffbackthObject eveatdata, handies) 
2 hobject handle io btmShow (see GCHBOD) 
5 eyentdata Teserved - to be defined in a 名 bure version of MATLAB 
2 handles Structure with hanqles and User data (see 人 ULIDATA) 
mum=handies.mat Size+T: 
data=hanqdles.matrix; 
h=handles.actdivex5; 
heCols=num 
和 ,ROWws=nUID 
for m=1l:num-1 
fornm=l:aum-l 
了 ,RROw=my: 
PR.Col=ni 
h.Text=nurn2strtdatat rmn: 
end 
end 


fanetioa t 惟 jze_CallbackthObject eventlata handles) 

站 hoObject handle to ttize fsee GCBO 

中 eyentdata Tesetved - to be defined in a 和 ture version of MATIA 如 
2 handles stmucture with handles and user data {See GUIDATA) 


妈 Hints: gethObject'String') returms contents of fktSize as te 夺 

量 str2dombhletgetbObject Stringm7 returns contents oftxtSize a8 adouble 
handies mat_size=str2double(gethandles.txtSize,String ); 
handles.matrix=magtcthartdles,mat size》， 


SaidatathObiecbhandjesh 


汶 一 Executes during object creation, after setting all properties， 

各 action ttSize_CreateFenthObjeet, evemtdata, handlesy 

冶 hObject hardje to txtSijze ee OCBO) 

烙 eventdata reserved - to be defined in a 和 hure version of MATLAB 

站 handles ”empty - handles notcreated until after all CreateFcns called 


必 有 mt edit coptrols usually have a whjte backgrolnd on Winpdows. 
中 See IJSPC and COMPUTER. 
这 这 pe 朗 员 isednal(gethObject "BackgrourndColor， BeK0, detaultUicentrolBackgroundColor) 
SetlhObjeet BackgroundColIor ,white 人 
ed 
运行 程序 ， 在 可 编辑 文本 框 中 输入 5， 单 机 “ 命 令 ”按钮 ， 会 在 MSFlexGrid 控件 中 显示 
大 小 为 的 魔方 矩阵 ， 如 图 15-3 所 示 。 
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15.2 ”控件 的 选择 、 移 动 、 缩 放 和 复制 


利用 selectmaveresise 函数 可 以 室 现 坐标 系 对 象 和 控件 图 形 对 急 的 选择 ， 椒 答 ， 端 夏 和 复 
制 ， 宗 编程 时 ， 特 鳃 表 数 作为 技 乌 按 下 时 的 回调 请 数 ， 
如 下 例 所 示 。 首 先生 成 到 上 ks 数据 的 曲面 有 图， 然后 将 当 临 举 标 系 的 ButmnDewnTen 必 福 
值 设 置 济 姑 HeelmiaweTeSiRE: 
ET 
Set[Ectu'BUtinDoWnFEN ， selectrrroveresize ] 
生 虚 Peaks 数据 的 则 而 图 。 陡 苹 标 单 击 坐 标 系 ， 在 坐标 系 周 围 示 6 个 国 色 手柄 ， 划 图 
所 示 ， 将 鼠标 省 标 放 在 华 标 系 元 图 形 以 外 的 区 域 ， 煽 后 拖拉 候 标 ， 可 以 移动 坐标 系 和 图 矶 。 


本 上 县 | 可 ea We nm 1 守 二 号 SI 






虽 门 天蓝 ; 疾 业已 讽 FRR 





人 


图 1$d4 选择 细 标 草 





阁 4-5 寺 水 吾 标 和 和 本 且 


a 3 


对 于 掉 件 ， 也 可 以 进行 业 似 的 操作 ， 例 如 
istiicogitrol 
EE 和 hh./ 瑟 UtOnCKGWOEGI SelectOweTESIZSC 
生 威 一 个 而 地 核 租 ， 如 图 15.6 所 示 。 用 也 标 吉 争 单 击 二 妞 ， 装 后 按 佳 右 蚀 的 同时 拖 动 刀 
标 ， 可 以 复制 访 技 但 ， 如 恒 15-7 中 复制 了 3 个 按 伺 。 





图 18- 生成 谷地 按司 图 1 了 复 封 楼 蚀 


下 面 的 语 疲 格式 ， 
三] Ri 
返回 一 个 包 洗 下面 两 个 学 段 的 结构 数组 : 
ATvpe 为 一 包 舍 者 作 迷 型 的 字符 市 ， 可 以 是 到 eeh Mowe Resiae 惑 Copy。 
se AHandies 为 一 列 选中 的 句柄 ， 或 者 对 于 Capy 撑 作 类 型 ， 为 出 区 2 的 乞 阵 ， 读 矩阵 
特 诛 始 句 栖 放 在 第 1 到， 特 新 句柄 放 在 第 2 列 。 


15.3 ”控件 标题 文本 的 换行 


利用 isxtwmap 函数 可 以 实现 控件 标题 文本 的 换行 。 该 冰 数 返回 给 定 控件 的 换行 字符 圳 类 
阵 ， 调 用 格 武 郁 : 
es Outgtring=textwnlipth.instring) 返回 一 个 换行 了 的 字符 市 单元 数 姐 outstring， 它 适应 名 
枉 为 目的 控件 的 内 部 天 小 。instring 是 一 个 单元 数 钥 ， 振 个 单元 包 合 一 行 垃 未 。，ootstming 是 一 
个 单元 数组 格式 的 换行 字符 申 优 阵 、。 输 入 字符 囊 的 每 个 单元 作为 一 幅 图 形 进 行 处 理 。 
间 |aullstringipositionjeiextwrapttuinstring)y 运 回 控件 的 建议 位 置 ，position 为 二 和 平方 向 
上 束 行 京 率 的 富民。 
下 面 的 例子 特 换行 训 检 字符 市 旋 在 撞 件 中 
pas=1i0 010010: 
条 三 二 本 晤 证 ， 人 二 克基 
后 | 谭 导 三 TH 过 仿 下 大 Fi nr 击 本 HG 全 下 二 二 ee GCT TEN iside | 
artriaEHEWPeE = ET 网 和 ,REFin 时 下 
Poaid) = newpasf4 矿 
setlh .Siring'outntingyEositiatrJipoetij poatMpast3j1Gpasf4) 
生 刻 围 1- 和 ， 


主导 当 祭 





图 18.8 将 损 种 训 赤 学 符 昨 帮 到 陷 才 去 永 标 签 中 


15.4 将 MATLAB 绽 制 的 图 形 显示 到 VB 界面 上 


素 节 从 钴 使 用 玄 件 外 部 传输 的 方法 特 MATLAB 终 制 的 图 形 最 示 到 VB 界面 上 。 我 们 结合 
一 个 实例 进行 从 外 。 

在 YB 中 创建 一 个 标准 EXE 工程 Deaw， 窗 体 各 称 为 frmDraiw。 在 窗 性 上 涨 加 一 个 图 片 杠 
inaeCaaw。 其 Sineich 属性 值 册 Tame， 滞 帮 一 个 市 坊 接 书 cmdDraw， 其 Capmio6 风 性 为 “将 
MATLAB 图 于 显示 在 人 B 界面 上 ”。 

春 代 了 码 宣 口 盛 加 下 面 的 代码 ， 


[CH ECGHEGTEUEEEH 各 旺 i 相 


代码 首先 创建 MATLAB 对 得 的 实例 及 MATLAB 命 舍 字 管 串 ， 然 后 用 execule 函数 执行 
MATLAB 命 售 ， 生 成 peaks 数 扶 的 表面 图 和 等 值 线 图 ， 间 将 它们 保存 在 C 竹下 的 temp bmp 


向 呈 生生 


喜人 忻 中 。 量 后 在 WB 图 片 框 申 载 六 该 图 形 ， 注 稍 MATLAB 对 和 外。 
过 行程 序 ， 单 击 春 意 技 乌 ， 在 图 片 框 申 显示 生 咸 的 闭 殿 ， 如 图 15 旦 所 示 。 





本 可 人 本 
人 


图 1529 在 号 虹 量 面 上 是 示 MATLAB 图 冲 
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